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Abstract 


This document introduces and illustrates visual building techniques, elementary 
Workframe project management, use of Data Assistant, and use of DB2/2 with 
IBM's VisualAge for COBOL for OS/2. 


This document was written for anyone expected to be using COBOL for 
application development and presumes a knowledge of COBOL. 


(125 pages) 
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Special Notices 


This publication is intended to help customers to implement COBOL applications 
using products in the IBM COBOL family of products. The information in this 
publication is not intended as the specification of any programming interfaces 
that are provided by IBM COBOL for MVS and VM, by IBM VisualAge for COBOL 
for OS/2, or by IBM COBOL Set for AIX. See the PUBLICATIONS section of the 
IBM Programming Announcement for IBM COBOL for MVS and VM, IBM 
VisualAge for COBOL for OS/2, and IBM COBOL Set for AIX for more information 
about what publications are considered to be product documentation. 


References in this publication to IBM products, programs or services do not 
imply that IBM intends to make these available in all countries in which IBM 
operates. Any reference to an IBM product, program, or service is not intended 
to state or imply that only IBM's product, program, or service may be used. Any 
functionally equivalent program that does not infringe any of IBM's intellectual 
property rights may be used instead of the IBM product, program or service. 


Information in this book was developed in conjunction with use of the equipment 
specified, and is limited in application to those specific hardware and software 
products and levels. 


IBM may have patents or pending patent applications covering subject matter in 
this document. The furnishing of this document does not give you any license to 
these patents. You can send license inquiries, in writing, to the IBM Director of 
Licensing, IBM Corporation, 500 Columbus Avenue, Thornwood, NY 10594 USA. 


The information contained in this document has not been submitted to any 
formal IBM test and is distributed AS IS. The use of this information or the 
implementation of any of these techniques is a customer responsibility and 
depends on the customer's ability to evaluate and integrate them into the 
customer's operational environment. While each item may have been reviewed 
by IBM for accuracy in a specific situation, there is no guarantee that the same 
or similar results will be obtained elsewhere. Customers attempting to adapt 
these techniques to their own environments do so at their own risk. 


The following terms are trademarks of the International Business Machines 
Corporation in the United States and/or other countries: 


IBM 
The following terms are trademarks of other companies: 
C-bus is a trademark of Corollary, Inc. 


PC Direct is a trademark of Ziff Communications Company and is 
used by IBM Corporation under license. 


UNIX is a registered trademark in the United States and other 
countries licensed exclusively through X/Open Company Limited. 


Windows is a trademark of Microsoft Corporation. 


Other trademarks are trademarks of their respective companies. 
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Preface 


This document is intended to complement the IBM COBOL family manuals by 
providing additional examples of the use of IBM VisualAge for COBOL for OS/2. 
The document starts with enhanced versions of chapters from the IBM VisualAge 
for COBOL for OS/2 Getting Started publication and then adds additional 
example applications. 


This document is intended for anyone using IBM VisualAge for COBOL for OS/2 
for application development and presumes a knowledge of the COBOL 
programming language. 


How This Document is Organized 
The document is organized as follows: 
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+ Chapter 1, "Building Your First VisualAge for COBOL Application" 


This chapter introduces a non-GUI application. 


+ Chapter 2, "Building Your First VisualAge for COBOL GUI Application" 


The basics of GUI programming are introduced in this chapter. 


+ Chapter 3, "Creating a Tax Computation Application with a GUI" 


This chapter describes how to use a GUI in an application that involves 
subroutines. 


+ Chapter 4, "Creating SQL Statements with Data Assistant" 


The basics of using the Data Assistant to produce SQL code is covered in 
this chapter. 


+ Chapter 5, "Project One: Non-GUI Programming with File Output" 


This chapter presents an application where data is written to a file. 


« Chapter 6, "Project Two: Using the Data Assistant" 


This chapter uses the Data Assistant to map a database for use in Chapter 7. 


+ Chapter 7, "Project Three: GUI Programming Using Data Assistant and 


DB2/2" 


This chapter uses all of the GUI related and Data Assistant related 
fundamentals in one application. 


« Appendix A, "Hello Application Source Code" 


This appendix lists the source code for chapter one. 


+ Appendix B, "Hello GUI Source Code" 


This appendix lists the source code for chapter two. 


+ Appendix C, "Tax Computation Application Source Code" 


This appendix lists the source code for chapter three. 


+ Appendix D, "Project One: Non-GUI Programming with File Output Source 


Code" 


This appendix lists the source code for chapter five. 


xi 


« Appendix E, "Project Three: GUI programming Using Data Assistant and 
DB2/2" 


This appendix lists the source code for chapter 7. 


Related Publications 


The publications listed in this section are considered particularly suitable for a 
more detailed discussion of the topics covered in this document. 


IBM COBOL for MVS and VM - Programming Guide, SC26-4767 
SOMobjects for MVS - User's Guide, GC28-1545 

SOMobjects for MVS - Class Library Reference, SC28-1546 

IBM COBOL Set for AIX - Programming Guide, SC26-8423 

IBM COBOL Set for AIX - Getting Started, GC26-8425 

IBM VisualAge for COBOL OS/2 - Programming Guide, SC26-8419 
IBM VisualAge for COBOL for OS/2 - Getting Started, GC26-8421 


International Technical Support Organization Publications 


A complete list of International Technical Support Organization publications, 
known as redbooks, with a brief description of each, may be found in: 


International Technical Support Organization Bibliography of Redbooks, 
GG24-3070. 


To get a catalog of ITSO redbooks, VNET users may type: 
TOOLS SENDTO WISCPOK TOOLS REDBOOKS GET REDBOOKS CATALOG 


A listing of all redbooks, sorted by category, may also be found on MKTTOOLS 
as ITSOCAT TXT. This package is updated monthly. 





How to Order ITSO Redbooks 


IBM employees in the USA may order ITSO books and CD-ROMs using 
PUBORDER. Customers in the USA may order by calling 1-800-879-2755 or by 
faxing 1-800-445-9269. Most major credit cards are accepted. Outside the 
USA, customers should contact their local IBM office. For guidance on 
ordering, send a note to BOOKSHOP at DKIBMVM1 or E-mail to 
bookshop@dk.ibm.com. 


Customers may order hardcopy ITSO books individually or in customized 
sets, called BOFs, which relate to specific functions of interest. IBM 
employees and customers may also order ITSO books in online format on 
CD-ROM collections, which contain redbooks on a variety of products. 
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ITSO Redbooks on the World Wide Web (WWW) 


Internet users may find information about redbooks on the ITSO World Wide Web 
home page. To access the ITSO Web pages, point your Web browser to the 
following URL: 


http://www. redbooks.ibm.com/redbooks 


IBM employees may access LIST3820s of redbooks as well. The internal 
Redbooks home page may be found at the following URL: 
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Part 1. Introduction to IBM VisualAge for COBOL for OS/2 
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Chapter 1. Building Your First VisualAge for COBOL Application 


This chapter will guide you through building your first IBM VisualAge for COBOL 
for OS/2 application. The steps you follow here teach you the basic principles 
that you will use for further applications that you build. When you finish, you will 
have an application that displays a customized greeting, as shown in Figure 1. 





Lene: 


Hello Application (Run::Run Target) 





My He H 
Yaa PECL CLT D PELL D CELDT CPT DPPC TOPO tt 


uy 








Figure 1. Hello Application 


Notice that this is an application that does not have a graphical user interface 
(GUI); you will build a GUI application in Chapter 2, "Build Your First VisualAge 
for COBOL GUI Application." 
These are the main steps you will follow: 

+ Creating the project 

« Coding the application 

+ Building the application 

+ Running the application. 
This chapter assumes that you are familiar with using the OS/2 interface. If you 


are not familiar with OS/2, take the OS/2 Tutorial (normally located in the 
Information folder on the OS/2 desktop). 


1.1 Creating the Project 


Your first step in developing an application with VisualAge for COBOL is to set 
up a project. A project encapsulates all of the components you need to build a 
single target. For example, the Hello Application project you create in this 
chapter contains a COBOL source file (a component or project part) from which 
you build the running COBOL program (a target). 


To set up a new project: 
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1. Double-click on the VisualAge COBOL icon. The VisualAge COBOL — Icon 
View window opens (Figure 2). 
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Figure 2. The VisualAge COBOL — Icon View 


2. Double-click on the Create New Project icon. The IBM VisualAge COBOL — 
Create New Project window opens (Figure 3). 















‘geen 
YW Ze 


F z IBM VisualAge COBOL = Create Hew Project 
-1. Choose Project Type 





@ Create a default COBOL project 
yy select from pre-defined project types 








-2, Default Project Specifications-- 
Enter a name for your project 
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Enter a directory for your project's files 







g 
lll lll 





Figure 3. Create New Project Window 


3. In the Choose Project Type group (Figure 3), select the Create a default 
COBOL project radio button. 


4. In the Default Project Specifications group (Figure 3), specify your project's 
name and the location where the project files are stored. In the entry field 
titled "hp2.Enter a name for your project, enter the name Hello Application. 


5. In the entry field titled Enter a directory for your project's files, use the 
mouse and point at the entry field and click the left mouse button. You will 
see HelloApp in the entry field. VisualAge for COBOL defaults the directory 
name to the first eight characters of the project name. All source files for the 
project will be located in this directory. You can change the name of the 
directory should you not want to use the default name. 
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6. In the Enter the target for your project entry field, your project's target has 
also been set by default to HelloApp.exe. This target name can also be 
changed should you not want the default. 

7. Click on the OK push button to create the project. Since the directory for the 
Hello Application (/HelloApp) has not yet been created, a message window 
appears (Figure 4). 





7 Create Hew Project - Information 











Figure 4. Message Window 


Click on the OK push button. The directory is created and the new project 
opens (Figure 5). 


Le z IBM VisualAge COBOL - Create Hew Project Ze 
-1, Choose Project Type 


Create a default COBOL project 
@ select from pre-defined project types 


-2, Default Project Specifications. 
Enter a name for your project 


Enter a directory for your project's files 


Enter the target for your project 











Figure 5. Create New Project Window Completed 


Now that you have created your project, you can create the files you need for the 
application. 


1.2 Creating the Application 


Once you have created a new project, you have a set of tools available for the 
files you create for your program. 


To create the COBOL source file for the Hello Application project from the Hello 
Application window shown in Figure 6, the following steps are needed: 
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Figure 6. Hello Application — Icon View 


1. From the Hello Application- Icon view window, select the Project menu bar 
choice, then select the arrow button next to the Create choice on the 
resulting menu. 


2. A cascaded menu appears. From the cascaded menu, select Create New 
Text File with the COBOL Editor. The result is shown in Figure 7. Select CBL 
from the Language profile listbox and click on the New pushbutton. 





Figure 7. New Text Language Profile Window Displayed 


The COBOL Editor displays the window titled Editor — Untitled Document 1: 
1 as shown in Figure 8. 
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Figure 8. Editor Window 


- Ww 





The COBOL Editor will now recognize your untitled file as a COBOL file. You 
can tell that the language-sensitive editing features are on by checking to 
see that the format line, the line just below the menu bar, displays A, *, and 
B. If you cannot see the format line, you can display it by selecting View, 
then selecting Format line. 


. Enter the source code for the Hello Application as listed in Appendix A. 


. When you have finished entering the source code, save the file. To save the 


file, select the File menu-bar choice, then select Save as. Ensure that the 
Directory list box shows HELLOAPP as the selected directory. Ensurer 
HELLOAPP.CBL is in the Save as filename field and click on the Save As 
push button. Then close the COBOL Editor by double-clicking on the 
system-menu symbol. If the file doesn't appear in the Hello Application — 
Icon view window, make the window active by clicking on its title bar, then 
press F5 (refresh). You should see the source file in the window as shown in 
Figure 9. 


Chapter 1. Building Your First VisualAge for COBOL Application 7 











Figure 9. Hello Application — Icon window 


You are now ready to build the application. 


1.3 Building the Application 


When you build your application, the target file that you specify is created. For 
the Hello application, you have a single COBOL source object, which you build 
into a running COBOL program as follows: 


1. Select the Project menu bar choice, then select the right arrow next to the 
Build action. From the cascaded menu, select Build normal. 


2. The target, an executable file titled helloapp.exe, is created from the COBOL 
source file. As the build process runs, you can see its progress in the 
Monitor. The Monitor appears at the bottom of the Hello Application - Icon 
view window. 


ao 


. When the build is complete, the Monitor displays the return code and new 
files appear in the Hello Application — Icon view window as shown in Figure 
10. 
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Hello Application - Icon view Le 
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nlocking project. 
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Figure 10. Hello Application— Icon Window with Monitor 


A return code of 0 means that the target was built without errors. 


If you do not get a return code of 0, the Monitor window displays error 
messages. Scroll back up to the error message lines that have the drive, path 
names, and source file name as well as the error message text. Double-click on 
an error message line. The COBOL Editor appears, showing the line in the 
helloapp.cbl source file where the error occurred. Correct the error and save 
the file. To compile it again, select the Project menu bar choice, then select 


Compile. You will see the results of the second compilation in the Monitor 
window. 


You are now ready to run the Hello Application. 





1.4 Running the Application 
You can run your application from the Hello Application — Icon view window. To 


run the Hello Application, select the Project menu bar choice, then select Run. 
An OS/2 window appears (Figure 11) and runs your program. 
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A complete source code listing for the Non-GUI Hello application is in Appendix 


A. 


Figure 11. Hello Application 
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Chapter 2. Building Your First VisualAge for COBOL GUI Application 


This chapter guides you through building your first VisualAge for COBOL 
application that has a graphical user interface (GUI). 


When you finish, you will have an application similar to the one you developed 
in Chapter 1, "Building Your First VisualAge for COBOL Application," but the 
application will have a GUI. Although there are some differences when you 
create an application that has a GUI, many of the tools will be the same as those 
you used to build the character-based Hello application. Figure 12 shows you 
what the application's GUI will look like when you have finished. 





What is your name? 











Figure 12. Hello GUI Application 


The main steps to follow are these: 
+ Creating the GUI project 
+ Creating the graphical user interface 
+ Creating the application logic 
+ Building the application 
Running the application. 
This chapter assumes that you are familiar with using the OS/2 interface. If you 


are not familiar with OS/2, either take the OS/2 Tutorial (normally located in the 
Information folder on the OS/2 desktop). 





2.1 Creating the GUI Project 


Your first step in developing a GUI application is to set up a GUI project. Like 
other projects, the GUI project contains the components you need to create a 
specific target; for example, it holds the files you need to create an application. 


To set up a new GUI project: 
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1. Double-click on the VisualAge COBOL icon. The VisualAge COBOL — Icon 
View window opens. 


2. Double-click on the Create New Project icon. The IBM VisualAge COBOL — 
Create New Project window opens. 


3. In the Choose Project Type group, select the Select from pre-defined project 
types radio button and click on the OK push button. 


4. The COBOL Project Smarts — Catalog View window opens (Figure 13). 











COBOL Project smarts = alog View 











Cat 





Use Project Smarts to create a project to suit your needs. 
Select one of the following customizable projects and click 
on "Create". 


Available projects: 


OE) DeSIgnet Ere 
COBOL GUI Designer Project with prompt 
COBOL MY¥S5 Project 
Default COBOL Project 
Empty COBOL GUI Designer Project 


Z 


Description of the selected project: 





Figure 13. COBOL Project Smarts — Catalog View 


From the Available projects list box, select COBOL GUI Designer Project and 
click on the Create push button. 


5. The COBOL GUI Designer opens. 





2.2 Creating the Graphical User Interface 


Now that your project is set up, you can create the GUI for the application. You 
will use the COBOL GUI Designer in Figure 14 to create the GUI for the Hello GUI 
Application. 


The COBOL GUI Designer enables you to build GUIs by dragging and dropping 
the GUI parts, such as a check box, onto a window part. It also enables you to 
create the logic that runs the GUI application. 


Since you chose to create a GUI Project during the project set-up, the COBOL 


GUI Designer — Untitled, Parts Palette, and Window with canvas windows should 
appear on your desktop. 
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Figure 14. COBOL GUI Designer 


The COBOL GUI Designer — Untitled window is the main window. When you 
initially open this window, the program assumes you want to create a new GUI. 
The COBOL GUI Designer creates a new window part for you, titled "Window 
with canvas." 


The Parts Palette contains the parts you use to construct your GUI. Use your 
mouse pointer to move parts from the Parts Palette to the Window with canvas. 


Notice that when you move the mouse pointer over an object in the Parts 
Palette, the name of the object appears in the information area at the bottom of 
the Parts Palette window. Make sure that the entire Parts Palette window is 
visible so you can see the information area at the bottom of the window. This 
will help you identify the parts. 


If you are not familiar with GUI parts, the Parts Catalog may be helpful to you as 


you learn to use the COBOL GUI Designer. The Parts Catalog, shown in Figure 
15, is a notebook with the GUI parts labeled and grouped into categories. 
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Figure 15. COBOL GUI Designer-— Parts Catalog Notebook 











To change the Parts Palette window to display the Parts Catalog, click on the 
small icon that resembles a notebook in the upper right corner of the Parts 

Palette window. This icon acts as a toggle: the window changes to display the 
Parts Catalog notebook and the icon changes to a palette. When you click on 


the icon in the upper right corner again, the notebook changes back to the Parts 
Palette window. 


Note: Although you can easily switch from he Parts Palette to the Parts Catalog 
and back again, these windows are not identical. Parts may be added to the 
Parts Catalog that are not automatically reflected in the Parts Palette. 


2.3 Adding the GUI Parts 


Using the Parts Palette or the Parts Catalog, drag and drop the following parts 
onto the Window with canvas, shown in Figure 16. 


As you place the parts on the Window with canvas, make sure that you align 


your parts with the bottom margin of the window. This ensures that if you 
change the size of the window, your parts will stay in view. 
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Figure 16. COBOL GUI Designer with GUI Parts 


1. Drag and drop one Static Text field onto the window. To drag and drop an 
object, move the mouse pointer over the object you want to move or copy 
and press mouse button 2. Move the object over the place you want it, then 
release the mouse button. 


2. Drag and drop two Entry fields onto the window. The first should be between 
the static text field and the right border of the window. The second should be 
beneath the first entry field. 


3. Drag and drop one Push button between the second entry field and the 
bottom of the window. 





2.4 Customizing the GUI 


When you have placed the parts on the window, you can change the parts to 
customize them for your application. 


For the Hello GUI Application, you need to change some of the part attributes. 
You can change these attributes by using the settings notebook (Figure 17). 


The settings notebook is used to set the initial run-time attributes for parts on 
your interface, such as color and font. You can also use the part settings 
notebook to change the part's name, which your program uses to query, and to 
change the part's appearance while the program runs. 


First, change the attributes for the first Entry field part: 


1. Double click on the first Entry field part to open the Entry Field Part Settings 
notebook. 


2. Move the cursor to the Part name entry field and change the contents to 
NAME. 


The part name is the internal name by which your part will be known. This 
name will also appear in your COBOL program and in the VisualAge COBOL 
tools that assist you in creating the COBOL code. You don't have to change 
the part name. Giving it a meaningful name, as you would with a variable in 
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a program, makes the part will be easier to identify when you are creating 
the Hello GUI Application logic. 


When you create your own GUI programs, ensure that you have the part 
names you want corresponding to the correct GUI part. 


3. Select the Data tab and set the length of the entry field to 30. 





Entry Field Pa 


See 


_ 





YY 
tld 








Figure 17. Settings Notebook for the Entry Field Part 


4. Double-click on the system-menu symbol at the upper left corner of the 
settings notebook window. Your changes are saved. 
Next, change the attributes for the rest of your parts: 


+ For the second Entry field part, change the part name to GREETING. Select 
the Style tab and ensure there is a check mark in the read-only check box 
that appears. If there isn't, click on the box to put the check mark in it. 


+ For the push button, change the part name to GREETME and the label to 
Greet Me Greet me. 


- For the static text part, change the text to What is your name?. 


+ For the Window-with-canvas part, double-click on the title bar of the Window 
with canvas. Change the part name to HELLOGU/ and the title to Hello. 


2.5 Moving and Sizing GUI Parts 


You may need to move or change the size of the parts to fully view the labels or 
see the contents of entry fields. The result is shown in Figure 18. 


To move a part: 
1. Select the part by clicking on it with mouse button 1. 


2. Move the mouse pointer over the part. 


16 VisualAge for COBOL Primer 


3. Click and hold mouse button 2. 
4. Move the mouse to the place you want the part. 


5. Release the mouse button. 


To size a part: 


1. Select the part by clicking on it with mouse button 1. Small boxes, or 
"handles," appear around the part. 


2. Move the mouse pointer over a handle, so that the mouse pointer changes to 
a double-headed arrow. 


3. Press and hold mouse button 2. 
4. Move the mouse until the part is the size you want. 


5. Release the mouse button. 











Figure 18. Completed Hello GUI Window Design 





2.6 Saving the GUI Project 
To save the GUI project, select menu bar item Project, then select Save as. 
The COBOL GUI Designer — Save as Application window appears (Figure 19). 


When you save a new application, COBOL GUI Designer — Save as Application 
window enables you to select the name and location of your project. 
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Figure 19. COBOL GUI Designer— Save As Application Window 
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For the Hello GUI Application, perform the following steps: 


1. 
2. 
3. 


6. 


Type Hello GUI Application in the Application name field. 
Ensure that the New application radio button is selected (it is the default). 


For Folders and projects on desktop, select the desktop item (Desktop by 
default). Single click the left mouse button. 


. In the Source file field, the file name is HelloGUI. This defaults to the first 8 


characters of the application name, in this example, Hello GUI Application. 
You can change the default as desired. 


. Inthe Source directory field, the default directory displayed is a modification 


of the current directory. For example, if you are in the directory 
C:\IBMCOBOL and your source file name is HelloGUI, the default source 
directory is C:\IBMCOBOL\HelloGUI. You can change the default as desired. 


Click on OK. 


The Hello GUI Application project is created. The COBOL GUI Designer window 
title changes from Untitled to your new application name. For the Hello GUI 
Application, it changes to Hello GUI Application. The project files are saved in 
the path you specified in the Source directory field. The next time you save your 
work, select the Project menu-bar choice, then select Save. 


When you create your own GUI projects, you can save the GUI project at any 
point before you build the project's target. 


Your next step for developing the Hello GUI Application entails coding the logic 
behind the parts in your GUI. The COBOL program behind your GUI follows the 
event-driven programming paradigm. 
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2.7 Event-Driven Programming 


If you have developed COBOL applications on a mainframe system, you are 
familiar with procedural programming techniques. If you plan to develop GUI 
applications with the COBOL GUI Designer, you must have an understanding of 
event-driven programming techniques. 


There is one main difference between these two programming techniques: an 
application developed using procedural programming has one entry and one exit 
point, but an application developed using event-driven programming has many 
entry and exit points. These entry and exit points correspond to the different 
events that cause the program to take action; for example, the user interacting 
with the user interface. 


When you write a COBOL program using procedural programming, the program 
has one point of entry and exit. The program follows each step in the program 
logic sequentially until it reaches the end of the logic (Figure 20). 





COBOL Source User Interface 


Custnum 
Name 
Address 
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Cede 


DISPLAY USER INTERFACE 


RETRIEVE USER INTERFACE F3 - EXIT 











Figure 20. Procedural Programming 


An event-driven program is a program that runs segments of logic in response 
to events. It has entry and exit points that correspond to the many events that 
can happen with respect to the program. When you run an event-driven 
program, all of the logic in your application waits for certain events to happen, 
such as when the user clicks the Greet me push button. Once a selected event 
occurs, only the logic for that event is performed; the application then waits for 
the next event. 


When you write a COBOL program using the COBOL GUI Designer, you use 
event-driven programming techniques. The logic flow is determined by the 
events that you have chosen for the parts in your graphical user interface (Figure 
21). With the help of the COBOL GUI Designer, you can code COBOL logic to 
respond to these events. Event logic is identified in your COBOL program by an 
ENTRY statement. The statements between each set of ENTRY and GOBACK 
statements (including the ENTRY and GOBACK) are executed when the 
corresponding event for the logic has been signalled. Each GUI part responds to 
a number of events. 
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Figure 21. Event-Driven Programming 


For example, 
1. A window is displayed. 


2. When the end-user triggers an event in the window, the appropriate logic is 
performed. In this case the user chooses the Greet Me push button and the 
corresponding logic is performed. The program then waits for the next event 
to occur. 


2.8 Creating the Event Logic 


The COBOL GUI Designer helps you code the event logic. Each part you place 
on the user interface has a pop-up menu choice titled Events, from which you 
select the event to which your logic will respond. 


Once you've selected the event, the COBOL GUI Editor window appears with the 
COBOL program for your GUI application and the cursor is positioned below the 
ENTRY statement for the selected event. This COBOL program initially contains 
the basic COBOL program constructs, such as DATA DIVISION. Several COPY 
statements are included as required for a GUI application. Other than the 
PROCEDURE DIVISION/GOBACK statement pair, between which you can code 
initialization logic to be executed before your GUI is displayed, only one event is 
already coded. That event is the window destroy event and is executed when 
your GUI application's window is closed. This event code contains the statement: 
MOVE VDE-TERMINATE-APPLICATION TO VDE-RC. This statement causes the 
GUI application to terminate when this window is closed. 


You now add the code you want to run for the event. When you need to access 
the screen data and attributes in your code, you can use the Edit menu-bar 
choice and select Insert code GUI to get assistance with creating the logic. The 
procedure is shown in Figure 22. 
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Figure 22. Steps for Coding the Event Logic 


The following steps show you how to create logic for the Hello GUI Application 
When a user types a name, for example, Reader, in the What is your name? 
entry field and presses the Greet Me push button, the message (Hello, Reader) 
appears in the second entry field. 


You create the logic to do this. First, indicate what event your logic will respond 
to for the Hello GUI Application; the logic responds to the Greet Me push button 
being pressed. 


Before you begin, make sure that the part names correspond to the correct parts 
of your GUI; for example, check to see that the Window with canvas has a part 
name of HELLOGUI. If you change the part name of a window or control after you 
have started to create the event code, you must change the part names in the 
affected program logic. These changes are not made automatically when you 
change the part name. 


1. Move the mouse pointer to the Greet Me push button on the Hello window 
and press mouse button 2. A pop-up menu appears. 


2. Select Events, then select PRESS from the cascaded menu (Figure 23). You 
will be specifying the logic that is to be run when the user clicks on (or 
presses) the Greet Me push button. 
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Figure 23. Selecting the PRESS Event for the Greet Me Pushbutton 


3. The COBOL GUI Editor window opens at the COBOL ENTRY statement for the 
Greet Me push button press event (Figure 24). 


Notice the format of the ENTRY statement, ENTRY 
"HELLOGUI_GREETME_PRESS" USING VDE-HELLOGUI. The first parameter 
includes the window name, the part name, and the event selected; these 
names are separated by underscores. 
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Figure 24. Editor Window with COBOL ENTRY Statement for the PRESS Event 
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At this point, you need to specify what happens when the Greet Me push button 
is pressed. The application logic must first retrieve the contents of the What is 
your name? entry field, add the greeting text, and move the greeting to the 
second entry field where it will be displayed for the user. VisualAge COBOL 
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provides assistance to help you generate the COBOL code to work with the GUI 
part. 


1. Click on the title bar of the COBOL GUI Editor window shown in Figure 24. 
The cursor in the window should appear on the line below the last ENTRY 
statement (after USING VDE-HELLOGUI). If the cursor isn't positioned there, 
move it there now. 


Select the Edit menu bar choice on the editor window, then select Insert 
Code From the cascaded menu, select GUI. The GUI Code Assistant window 
opens, as shown in Figure 25. 
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Figure 25. GUI Code Assistant 


2. Click on HELLOGUI in the Window list box (Figure 25) to select the window 
that contains the NAME field, the part from which you want to receive the 
contents. 


3. Click on NAME in the Parts list box. 


4. Click on getContents in the Routines list box to get the value of the What is 
your name? entry field. You may need to scroll the Routines list box to find 
getContents. 


5. Notice the CALL statement in the multiple-line entry field just above the push 
buttons at the bottom of the window. This is the statement that will be 
generated. Click on the Generate push button to complete (Figure 26). 
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Figure 26. Completed GUI Code Assistant Window 


A CALL statement is generated that gets the value of the What is your name? 
entry field. This CALL statement issues a call to the routine getContents, 
using parameters generated by the GUI Code Assistant. These parameters 
are based on the windows, parts, and routines you select. 


When you create code using the GUI Code Assistant window, you are using 
default variables. These variables are defined in a copy file (VACCESS.CPY) 
that is automatically included in this program. Many of the variables in this 
copy file are tables. 


6. To close the GUI Code Assistant window, click on the Close push button. 
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Figure 27. COBOL Logic Generated Using the GUI Code Assistant 


The next action of this event is to create the greeting string using the value the 
user enters. You need to add code to the event logic. 


When you use the GUI Code Assistant to generate code, it follows the ANSI 
standard and generates quotes. When adding logic for your GUI applications, be 
sure to use quotation marks (") rather than apostrophes (’). 


Move the cursor in the COBOL GUI Editor window to the line after the logic 
created to get the contents of the NAME field ( CALL "getContents" USING 
NAME-HANDLE, Contents, VDE-RC ) as shown in Figure 27. 


Enter the following code. To add extra lines, press the Enter key. 


MOVE "Hello, " TO NewText-String(1:7) 

MOVE Contents-String(1:Contents-Length) 

TO NewText-String(8:Contents-Length) 

ADD 7 Contents-Length GIVING NewText-Length 


You now have the logic for adding the string “Hello, ” to the name the user 
enters into the first entry field. 


The final action of this event is to move the text to the entry field in which the 
greeting is to be displayed. You can use the GUI Code Assistant window again to 
generate the code(Figure 28). 


1. In the editor window, place the cursor on a blank line between the code you 
just entered and the GOBACK statement. 


2. Select Edit from the COBOL GUI Editor menu bar. Select Insert code, then 
select GUI. 


3. When the GUI Code Assistant window appears, select the GREETING part 
and the setContents routine in the GUI Code Assistant window. 


4. In the Identifier1 entry field, change Contents to NewText. 
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5. Ensure that the Include MOVE Statement(s) check box is unchecked. 
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Figure 28. Completed GU! Code Assistant 


6. Select Generate in the GUI Code Assistant window. The code you generated 


appears in the editor window (Figure 29). 








COBOL GUI Editor - D:4....HELLOGUILCBL: 1 


Row 53 Column 1 Replace 2 changes 














“HELLOGUT GREETME PRESS" 
USING YDE-HELLOGUI, 


CALL “getContents” USING NAME-HANDLE, 
Contents, 

YVDE-AC 

MOVE “Hello, “ TO NewText-String(1:7) 

MOVE Contents-String({1:Contents-Length} 

TO newText-String(8:Contents-Length) 

ADD ¥ Contents-Length GIVING NewText-Length 





CALL “setContents” USING GREETING-HANDLE, 
NewText, 
YDOE-AC 


GOBACK. 








Figure 29. GUI Code Assistant Generated COBOL Code 


7. To close the GUI Code Assistant window, click on the Close push button. 
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8. To save your changes, select the File menu bar choice then select Save. 
Close the editor window by double-clicking on the system-menu symbol in 
the upper left corner of the window. 


You have just created the logic for the Greet Me push button. 
The logic to close the GUI application has already been coded for you. To view 
this event logic: 


1. Click mouse button 2 on the Hello title bar of the GUI window where the 
parts are layed out. 


2. Select Events. 


Notice the check mark on the DESTROY menu choice on the Events 
cascaded menu. This means that the event logic is already created. Clicking 
on the menu choice takes you to the existing event logic. 


3. Select DESTROY. 
The COBOL GUI Editor window appears (Figure 30). The cursor is placed in the 


source code at the DESTROY event. This logic causes the application to end 
when the user closes the application window. 





sae 
Ve 


, COBOL GUI Edit 






Row 36 Column 1 Replace 2 changes 


1 
















WORKING-STORAGE SECTION, 

Bi ¥DE-AC 

COPY RETURNCD. 

COPY YACCESS, 

# LOCAL-STORAGE SECTION. 
LINKAGE SECTION, 

COPY HELLOGUT. 

COPY YEVENTS, 





PIC 89(9) USAGE COMP, 


PROCEDURE DIVISION USING CommandLine-Data. 
GOBACK, 





ENTRY 
“HELLOGUT HELLOGUT DESTROY" 

USING YDE-HELLOGUT, 

MOVE YDE-TERMINATE-APPLICATION TO ACTION-AC. 
GOBACK. 





, 








Figure 30. Event Logic for the Hello GUI Application 


To save your changes, select File, then select Save. Close the COBOL GUI Editor 
window. You are now ready to build the Hello GUI Application. 





2.9 Building the Application 


When you build a VisualAge COBOL GUI application, the source files are 
compiled and linked to create a running application. To build your application: 


1. From the COBOL GUI Designer — Hello GUI Application window, select the 
Project menu-bar choice. 
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2. Select Build. 


If you did not save the project before selecting Build, the COBOL GUI 
Designer Save Project window appears. Select Save to save your project. 


3. When the build process starts, the Project window appears. 


Within the Project window is the Monitor (Figure 31), which displays the 
output of the build process. The files that you created for the application are 
compiled and linked to create the specified target file. 


4. When the build process completes, the return code is displayed. A return 
code of zero indicates that your application was built without errors and is 


ready to run. 
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Figure 31. COBOL GUI Project Window with Monitor Area 


If you do not get a return code of 0, the Monitor window displays error 
messages. Scroll back up to the error message lines that have the drive, path 
names, and source file name as well as the error message text. Double-click on 
an error message line. The COBOL GUI Editor appears, showing the line in the 
source file where the error occurred. Correct the error and save the file. To 
build it again, select Project, then select Build. You will see the results of the 
second build process in the Monitor window. 





2.10 Running the Application 


To run the Hello GUI Application, select the Project menu-bar choice, then select 
Run. The Hello window appears, as shown in Figure 32, and you can try out your 


GUI application. 
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Figure 32. Running the Hello GUI Application 


To close the Hello GUI Application, double-click in the upper left corner of the 
window. 


A complete code listing for the Hello GUI application is in Appendix B. 
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Chapter 3. Creating a Tax Computation Application with a GUI 


This chapter guides you through building an application, including the subroutine 
that the application calls. The application name is Tax Computation and it 
contains a graphical user interface (GUI). The user enters a sales amount and 
the tax is calculated with the total. 


The tax is calculated by the subroutine, which is named Tax Calculation. This 
subroutine's parameter list is defined as follows: 


01 TAXCALC-PARM-LIST 


05 SALES-AMOUNT-CHAR PIC X(5). 
05 TOTAL-AMOUNT-CHAR PIC X(8). 


When you finish, you will have an application that displays the total amount with 
sales tax included. Figure 33 shows you what the application's interface will look 
like when you have finished. 


“2 Sales Tax Computation 





Enter sales amount: 





Total with sales tax included: 











Figure 33. Tax Computation Application 


.The main steps you will follow are these: 
+ Creating the subroutine project 
+ Creating the subroutine logic 
+ Creating the GUI application project 
+ Creating the application logic 
+ Nesting the projects 
+ Setting compiler options 
+ Building the application 


+ Running the application. 
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3.1 Creating the Subroutine Project 
Your first step in developing an application with VisualAge COBOL is to set up a 
project. A project encapsulates all of the components you need to build a single 
target. For example, the Tax Calculation subroutine you create in this chapter 
contains a COBOL source file (a component or project part) from which you build 
the running COBOL program (a target). 


To set up a new project: 


1. Double-click on the VisualAge COBOL icon. The VisualAge COBOL — Icon 
View window opens. 


2. Double-click on the Create New Project icon. The IBM VisualAge COBOL — 
Create New Project window opens as shown in Figure 34. 
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Create a default COBOL project 


yy select from pre-defined project types 


-2,. Default Project Specifications. 
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Figure 34. Create New Project Window 


3. In the Choose Project Type group, ensure that the Create a default COBOL 
project radio button is selected. 


4. In the Default Project Specifications group, specify your project's name and 
the location where the project's files are stored. In the entry field titled Enter 
a name for your project, enter the name Tax Calculation. 


5. In the entry field titled Enter a directory for your project's files, enter the 
directory where you are planning to put your source files. For the Tax 
Calculation subroutine, change \project1 in the default drive and path to 
\taxcalcu. If you click on \project1, the entry fields are automatically updated 
to TaxCalcu. 


6. In the Enter the target for your project entry field, specify your project's 
target. For the Tax Calculation subroutine, change taxcalcu.exe to 
taxcalcu.obj. The subroutine's object file (taxcalcu.obj) will be statically 
linked to the application. 


7. Click on the OK push button to create the project. Since the directory for the 
Tax Calculation (\TAXCALCU) has not yet been created, a message window 
appears. Click on the OK: push button. The directory is created and the new 
project opens. 
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Now that you have created your project, you can create the files you need for the 
application. 





3.2 Creating the Subroutine Logic 


Once you have created a new project, you have a set of tools available for the 
files you create for your program. 


To create the COBOL source file for the Tax Calculation subroutine project: 


1. From the Tax Calculation — Icon view window, select the Project menu-bar 
choice, then select the arrow button next to the Create choice. 


2. A cascaded menu appears. From the cascaded menu, select Create New 
Text File with the COBOL Editor. 


The New window appears (Figure 35) In this window, you can specify which 
language-sensitive editing features you want. Ensure that the Language 
profile check box is checked. Select CBL from the Language profile list box. 
This sets the editor to the COBOL language-sensitive editor. 














Figure 35. New Window for Language Profile 


Click on New. 
3. The COBOL Editor displays the window titled Editor — Untitled Document 1. 
4. In the editor window, starting at column 8 (under A), type the source code 
shown. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. TAXCALC. 
AUTHOR. Programmer. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


DATA DIVISION. 
VORKING-STORAGE SECTION. 








01 PROGRAM-CONSTANT-FIELDS. 
05 SALES-TAX PIC V9(2) VALUE .08. 





a 


NKAGE SECTION. 





01 TAXCALC-PARM-LIST. 

05 SALES-AMOUNT-CHAR PIC X(5). 

05 SALES-AMOUNT REDEFINES SALES-AMOUNT-CHAR 
PIC 9(5). 
05 TOTAL-AMOUNT-CHAR PIC X(8). 

05 TOTAL-AMOUNT REDEFINES TOTAL-AMOUNT-CHAR 
PIC 9(6)V9(2). 
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PROCEDURE DIVISION USING TAXCALC-PARM-LIST. 


COMPUTE TOTAL-AMOUNT = SALES-AMOUNT + 
(SALES-AMOUNT * SALES-TAX) . 


GOBACK. 


5. When you have finished entering the source code, save the file. To save the 
file, select the File menu-bar choice, then select Save as. The Save as 
window appears as shown in Figure 36. 


Ensure that the Directory list box shows IBMCOBOL\TAXCALCU as the 
selected directory. In the Save as filename field, type taxcalcu.cb/ and click 
on the Save As push button. Close the COBOL Editor by double-clicking on 
the system-menu symbol. 


a 











Figure 36. Save As Window 
6. If the file does not appear in the Tax Calculation — Icon view window, make 
the window active by clicking on its title bar, then press F5 (refresh). 


7. Close the Tax Calculation — Icon view project by double-clicking on the 
system-menu symbol. 





3.3 Creating the GUI Application Project 


Your first step in developing a GUI application with VisualAge COBOL is to set 
up a GUI project. Like other projects, the GUI project contains the components 
you need to create a specific target; for example, the files you need to create an 
application. 


The Project menu-bar choice in the COBOL GUI Designer window provides 
access to project-level menu actions that will help you edit, compile, debug, test, 
and analyze the software you develop. 

To set up a new GUI project: 


1. Double-click on the VisualAge COBOL icon. The VisualAge COBOL — Icon 
view window opens. 
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2. Double-click on the Create New Project icon. The IBM VisualAge COBOL — 
Create New Project window opens. 


3. In the Choose Project Type group, select the Select from pre-defined project 
types radio button and click on the OK push button. 


4. The COBOL Project Smarts — Catalog View window opens. From the 
Available Projects list box, select COBOL GUI Designer Project and click on 
the Create push button. 


5. The COBOL GUI Designer, Parts Palette, and Window with canvas windows 
open. 


Now that your project is set up, you can create the GUI for the application. You 
will use the COBOL GUI Designer to create the GUI for the tax computation 
application. 


Since you chose to create a GUI Project during the project setup, the COBOL 
GUI Designer — Tax Computation Application, Parts Palette, and Window with 
canvas windows should appear on your desktop. 


3.4 Adding the GUI Parts 


Using the Parts Palette or the Parts Catalog, drag and drop the appropriate parts 
onto the Window with canvas. 


As you place the parts on the Window with canvas, make sure that you align 
your parts with the bottom margin of the window. This ensures that if you 
change the size of the window, your parts will stay in view. 


1. Drag and drop two Static Text fields onto the window. 


2. Drag and drop two Entry fields onto the window. The first should be between 
the first static text field and the right border of the window. The second 
should be beneath the first entry field. 


3. Drag and drop one Push button below the second static text field at the 
bottom of the window. 





3.5 Customizing the GUI 
When you have parts on the window, you can change the parts to customize 
them for your application. 


For the tax computation application, you need to change some of the part 
attributes. You can change these attributes by using the settings notebook (See 
Figure 17 for a basic settings notebook). 


The settings notebook is used to set the initial run-time attributes for parts on 
your interface, such as color and font. You can also use the settings notebook to 
change the part's name, which your program uses to query, and to change the 
part's appearance while the program runs. 
First, change the attributes for the first Entry field part: 

1. Double-click on the first Entry field part to open the settings notebook. 


2. Move the cursor to the Part Name entry field and change the contents to 
ENT-SALESAMOUNT. 
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The part name is the internal name by which your part will be known. This 
name will also appear in your COBOL program and in the COBOL VisualAge 
tools that assist you in creating the COBOL code. You don't have to change 
the part name. Giving the part a meaningful name, as you would with a 
variable in a program, makes it easier to identify when you are creating the 
Tax Computation Application logic. 


. Select the Data tab and set the Length of the entry field to 5. 
. Change the Type to Numeric. 


. Change the Decimals to 0. 


oOo oa fF Ww 


. Double-click on the system menu symbol at the upper left corner of the 
settings notebook window. Your changes are saved. 


Next, change the attributes for the rest of your parts: 


« For the second Entry field part, change the part name to ENT-TOTAL. Select 
the Style tab and ensure there is a check mark in the Read-only check box. 
If there isn't, click on the box to put the check mark in it. 


+ Select the Data tab and change the Length to 8, the Type to Numeric , and 
the Decimals to 2. 


+ For the push button, change the part name to PSB-COMPUTETAX and the 
label to Compute tax. 


+ For the first static text part, change the text to Enter sales amount:. 
+ For the second static text, change the text to Total with sales tax included:. 


« For the Window with canvas part, double-click on the title bar of the Window 
with canvas. Change the part name to FRA-TAXCOMPUTATION and the title 
to Sales Tax Computation. 


3.6 Saving the GUI Project 
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To save the GUI project, select Project, then select Save as from the COBOL GUI 
Designer — Untitled window. 


The COBOL GUI Designer — Save as Application window appears. When you 


save a new application, the COBOL GUI Designer — Save as Application 
window, Figure 37, enables you to select the name and location of your project. 
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Figure 37. COBOL GUI Designer— Save as Application Window 


For the tax computation application, perform the following steps: 


— 


o - WO PY 


(o>) 


. Type Tax Computation Application in the Application Name field. 

. Ensure that the New application radio button is selected. It is the default. 
. For Folders and projects on desktop, select the Desktop item. 

. Click in the Source file field. TAXCOMPU is automatically displayed in the 


Source file and Source directory entry fields. This defaults to the first 8 
characters of the application name & endash. in this example, Tax 
Computation Application. You can change the default as desired. 


. Inthe Source directory field, the default directory displayed is a modification 


of the current directory. For example, if you are in the directory 
C:\IBMCOBOL and your source file name is TaxCompu, the default source 
directory is C:\IBMCOBOL\TaxCompu. You can change the default as 
desired. 


. Click on OK. 


The tax computation application project is created. The COBOL GUI Designer 
window title changes from Untitled to your new application name. For the Tax 
Computation application, it changes to Tax Computation Application. The project 
files are saved in the path you specified in the Source directory field. The next 
time you save your work, select the Project menu-bar choice, then select Save. 


When you create your own GUI projects, you can save the GUI project at any 
point before you build the project's target. 
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3.7 Creating the Application Logic 


Your next step for developing the tax computation application involves coding 
the logic behind the parts in your GUI. The COBOL program behind your GUI 
follows the event-driven programming paradigm. 


The following steps show you how to create logic for the tax computation 
application. When a user types an amount, for example, 100 in the Enter sales 
amount entry field and presses the Compute Tax push button, the total amount of 
108.00 appears in the Total with sales tax included entry field. 


You create the logic to do this. First, indicate what the event is that your logic 
respond to; for the tax computation application, the logic responds to clicking on 
the Compute Tax push button. Then, 


1. Move the mouse pointer to the Compute tax push button on the Sales Tax 
Computation window and press mouse button 2. A pop-up menu appears. 


2. Select Events, then select PRESS from the cascaded menu (Figure 38). You 
will be specifying the logic that is to be run when the user clicks on the 
Compute Tax push button. 








MW siciacupuie | 


Enter sales amount: 


_ 








Figure 38. Selecting the PRESS Event for the Compute Tax Pushbutton 


3. The COBOL GUI Editor window opens at the COBOL ENTRY statement for the 
Compute Tax push button press event. 


Notice the format of the ENTRY statement, 
FRA-TAXCOMPUTATION_PSB-COMPUTETAX_PRESS (Figure 39). The first 
parameter includes the window name, the part name, and the event selected. 
These names are separated by underscores. 
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“FRA-TAACOMPUTATION PSB-COMPUTETAM PRESS" 
USING ¥DE-TAXCOMPU, 


GOBACK . 
END PROGRAM “TAACOMPU", 


ey ty 








Figure 39. Editor Window with COBOL ENTRY Statement for the PRESS Event 


At this point, you need to specify what happens when the Compute Tax push 
button is pressed. The application logic must retrieve the contents of the Enter 
sales amount entry field, add the sales tax, and move the sum to the second 
entry field where it is be displayed for the user. COBOL VisualAge for OS/2 
provides assistance to help you generate the COBOL code to work with the GUI 
part. 


1. Click on the title bar of the COBOL GUI Editor window. The cursor in the 
window should appear on the line below the ENTRY statement (after USING 
VDE-TAXCOMPU ). If the cursor isn't positioned there, move it there now. 


Select the Edit menu-bar choice on the editor window, then select Insert 
code. From the cascaded menu, select GUI. The GUI Code Assistant window 
opens (Figure 40). 
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| Return code: 
| Ye iclude MOVE Statementis] 
| CALL "getContents" USING ENT-SALESAMOUNT -HANDLE, 


Contents, 
Y¥YDE-RC 











Figure 40. GUI Code Assistant Window 


2. Click on FRA-TAXCOMPUTATION in the Window list box to select the window 
that contains the ENT-SALESAMOUNT field, the part from which you want to 
receive the contents. 


3. Click on ENT-SALESAMOUNT in the Parts list box. 


4. Click on getContents in the Routines list box to get the value of the Enter 
sales amount entry field. You may need to scroll the Routines list box to find 
getContents. 


5. Notice the CALL statement in the multiple-line entry field just above the push 


buttons at the bottom of the window. This is the statement that will be 
generated. Click on the hp2.Generate push button to complete. 


A CALL statement is generated that gets the value of the Enter sales amount 
entry field. This CALL statement issues a call to the routine getContents, 
using parameters generated by the GUI Code Assistant. 


These parameters are based on the windows, parts, and routines you select. 


When you create code using the GUI Code Assistant window, you are using 
default variables. These variables are defined in a copy file, VACCESS.CPY, 
that is automatically included in this program. Many of the variables in this 
copy file are tables. 


6. To close the GUI Code Assistant window, click on the Close push button. 


The next action of this event is to move the value received by the getContents 
routine from the Contents variable to the SALES-AMOUNT-CHAR variable for 
use by the subroutine. 


1. Move the cursor in the COBOL GUI Editor window to the line after the logic 
created to get the contents of the SALESAMOUNT field. (CALL "getContents" 
USING ENT-SALESAMOUNT-HANDLE, Contents, VDE-RC) 


2. Type the following code. To add extra lines, press the Enter key. 
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MOVE Contents-String(1:Contents-Length) 
TO SALES-AMOUNT-CHAR 


3. Because this is a new variable, you need to define it in the data division. 


You can get to the data division either by scrolling up in your source code or 
by selecting Data Division from the View pull-down. Selecting Data Division 
opens another editor session with the cursor positioned at DATA DIVISION. 
In the local-storage section, add the following: 


01 TAXCALC-PARM-LIST. 
05 SALES-AMOUNT-CHAR PIC X(5). 


4. Next, define the variable for the amount with sales tax computed by the 
subroutine. Also add the following line below the other 


05 TOTAL-AMOUNT-CHAR PIC X(8). 


5. Return to your position in the PSB-COMPUTETAX_PRESS event by either 
scrolling back down or, if you used the Data Division option, by closing the 
editor session that is displaying the data division and returning to the 
original editor session. The two editor sessions are dynamic in that your 
changes show up in both sessions. 





3.8 Calling the Subroutine Logic 


1. Now, you need to write the code to call the subroutine. Below the complete 
MOVE Contents-Sitring statement, type: 


CALL "TAXCALC" USING TAXCALC-PARM-LIST. 


2. After the subroutine calculates the total with tax, it returns the value to the 
main program in the TOTAL-AMOUNT-CHAR variable, which you defined in 
your data division. 


The final action is to display the value in the Total with sales tax entry field. You 
can use the GUI Code Assistant window again to generate the code. 


1. In the editor window, place the cursor on a blank line below the CALL 
statement. 


2. Select Edit from the COBOL GUI Editor menu bar. Select Insert code, then 
select GUI. 


3. When the GUI Code Assistant window appears, select 
FRA-TAXCOMPUTATION from the Windows list box and ENT-TOTAL from the 
Parts list box. Select the setContents from the Routines list box. 


4. Ensure that the Include MOVE Statement(s) check box is checked. 


5. Select the Edit MOVE push button as shown in Figure 41. A separate window 
appears as shown in Figure 42. 
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Figure 42. MOVE Window. 


6. In the first MOVE statement, replace 1 with 8. 


7. Inthe second MOVE statement, replace SPACES with 
TOTAL-AMOUNT-CHAR. 


8. Click the OK push button. 
9. The code in the multiple-line entry field should look like this (Figure 43): 


MOVE 8 TO Contents-Length 

MOVE TOTAL-AMOUNT-CHAR TO Contents-String 
CALL "setContents" UISNG ENT-TOTAL-HANDLE, 
Contents, 

VDE-RC 
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Figure 43. Code Window 


10. Click on Generate. Click on Close to close the GUI Code Assistant window. 


11. Now you need to insert your reference modification. In the GUI COBOL 
Editor window, at the end of TO Contents-String, type: 


(1:Contents-Length) 
12. The code in the multiple-line entry field should look like: 


MOVE 8 TO Contents-Length 

MOVE TOTAL-AMOUNT-CHAR TO Contents-String(1:Contents-Length) 
CALL "setContents" USING ENT-TOTAL-HANDLE, 

Contents, 

VDE-RC 


13. You have now finished writing the code for the Compute tax event. The entire 
source code file should look like the listing in Appendix C. 


14. Save the source by selecting Save from the File pull-down menu. Close the 
Editor by double-clicking in the upper left corner of the window. 
You just created the logic for the Compute Tax push button. 
The logic to close the GUI application has already been coded for you. To view 
this event logic: 
1. With mouse button 2, click on the Sales Tax Computation title bar. 
2. Select Events. 


Notice the check mark on the DESTROY menu choice on the Events 
cascaded menu. This means that the event logic is already created. Clicking 
on the menu choice takes you to the existing event logic, (Figure 44). 


3. Select DESTROY. 
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The COBOL GUI Editor window appears. The cursor is placed in the source code 
at the DESTROY event. This logic causes the application to end when the user 
closes the application's window. 


_ COBOL GUI Editor. D:\...\TAXCOMPU.CBL: 1 ae 


: Row 39 Column 1__ Replace 
ig --+-*A-1-B--+----2----+----9----+----4----+----§----+----§----+- 
COPY VEVENTS, 











PROCEDURE DIVISION USING CommandLine-Data. 
GOBACK , 


ENTRY 
"FRA-TAACOMPUTATION FRA-TAACOMPUTATION DESTROY" 
USING ¥DE-TAXCOMPU, 
MOVE VDE-TERMINATE-APPLICATION TO ACTION-RC. 
GOBACK , 
ENTRY 
“FRA-TAACOMPUTATION PSB-COMPUTETAM PRESS" 
USING YDE-TAACOMPL, 




















Figure 44. Event Logic for the Tax Computation Application 


To save your changes, select File, then select Save. Close the COBOL GUI 
Designer window. Close the Tax Computation Application— Icon view window. 





3.9 Nesting the Projects 


You can nest projects to reflect the calling structure. In this application, the tax 
computation application calls the tax calculation subroutine. To reflect this 
calling structure, the tax calculation subroutine is nested in the tax computation 
application GUI project (Figure 45). 


The tax calculation subroutine you just created is a non-GUI project. You can 
nest this project in the tax computation application. 


+ Drag the tax calculation subroutine project desktop icon onto the tax 
computation application project icon. This moves (nests) the subroutine 
project inside the application project. 


44  VisualAge for COBOL Primer 





TE 
L iy 





Tax Calculation 
[| TaxCompu. ipm 


@ TAXCOMPU.ODF 
[| TaxCompu.txe 
[| TaxCompu.vpt 
[) TAXCOMPU.CBL 








Figure 45. Nesting Projects 


3.10 Setting Compiler Options 
Now you set the compile options for the tax calculation subroutine: 
1. Open the tax calculation subroutine by double-clicking on it. 


2. Select Compile from the Options pull-down of the Tax Calculation— Icon view 
window. The COBOL Compiler Options notebook appears (Figure 46). 
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Figure 46. IBM COBOL Compiler Options Notebook 
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3. Select the Other tab to go to that page (Figure 47). Click on the Compile 
programs but do not link check box. 
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Figure 47. IBM COBOL Compiler Options Notebook— Other Tab 
4. Click on OK to close the Compiler Options notebook. 


Now, set the compile options for the tax computation application. 


1. Select Compile from the Options pull-down of the Tax Computation 
Application— Icon view window and then select the Link tab. Figure 48 shows 
the GUI Compile : File Scope — IBM COBOL Compiler Options window. 
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Figure 48. IBM Compiler Options Notebook&endas.Link Tab 


2. 


In the Enter library/object file name(s) entry field, type: 
D: \IBMCOBOL\TAXCALCU\TAXCALCU. OBJ 


This causes the tax calculation object file to be statically linked to the 
application. 


3. Click on OK to close the Compiler Options notebook. 


Now you can build the application. 


3.11 Building the Application 


When you build a VisualAge for COBOL for OS/2 application, the source files are 
compiled and linked to create a running application. If you have nested projects, 
the inner projects are built when you build the GUI. 


To build your application: 


1. 


From the Tax Computation Application— Icon view window, select the Project 
menu-bar choice. 


Select Build. 


When the build process starts, the Monitor window appears at the bottom of 
the Tax Computation Application&endaslcon view window (Figure 49). The 
Monitor window displays the output of the build process. The files that you 
create for the application are compiled and linked to create the specified 
target file. 


When the build process is completed, the return code is displayed. A return 
code of zero indicates that your application was built without errors and is 
ready to run. 
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Figure 49. Building the Tax Computation Application 


If you do not get a return code of 0, the Monitor window displays error 
messages. Scroll back up to the error message lines that have the drive, path 
names, and source file name as well as the error message text. Correct the 
error and start the build process again. 





3.12 Running the Application 


From the Tax Computation Application— Icon view window, select Run from the 
Project menu bar, then select Foreground. The Sales Tax Computation window 
appears, and you can try out your GUI application (Figure 50). 





~ Sales [ax Computation 







Enter sales amount: 100 


Total with sales tax included: gng708.00 








Figure 50. Running the Tax Computation Application 


To close the tax computation application, double-click in the upper left corner of 
the window. 
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The complete source code listings for both programs is listed in Appendix C. 
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Chapter 4. Creating SQL Statements with Data Assistant 


Data Assistant simplifies the process of constructing syntactically correct, 
embedded Structured Query Language (SQL) statements. It gives you a graphic 
view of your relational database, allows you to map COBOL data structures to 
the database, and generates SQL statements into your source file. 


Data Assistant offers three views. In this brief tutorial, you use the following four 
steps to open these views and create an embedded SQL statement that lists all 
the managers in the Employee table of the SAMPLE database: 


1. Examine data schema objects (tables and views) of a relational data base 
(SAMPLE) in the Database Schema view, shown in Figure 51. 


2. Copy a selected data schema object to the Data Structure Mapping view, 
shown in Figures 52 and 53. 


3. Map a data structure to the data schema objects in the Data Structure 
Mapping view, shown in Figures 53 and 54. 


4. Use this data structure in the SQL Construction view to build an SQL 
statement and insert it into your COBOL code. 


As you go through this tutorial, you may want more information about Data 
Assistant. You can access online information by pressing the F1 key. 


This tutorial uses the SAMPLE data base included with DB2/2 Version 2.1. It also 
assumes that you have already created a COBOL project, either by using the 
instructions in Chapter 1, "Build Your First VisualAge for COBOL Application" or 
by creating a project of your own. For the purposes of this tutorial, do not use a 
project built with the VisualAge COBOL GUI Designer. 





4.1 Examining Objects in the Database Schema View 


Begin by examining data schema objects in the Database Schema view. A data 
schema object is a table or view of a relational database (in this case, 
SAMPLE). Use the columns from these data schema objects to map a data 
structure in the Data Structure Mapping view. 


To open the Database Schema view and examine data schema objects in the 
SAMPLE database: 
1. Start DB2/2 before you proceed to open the Database Schema view. 
+ Open an OS/2 window. 
+ At the OS/2 command line, type: DB2START 


«+ Open a COBOL project. If you have not created one, see the instructions 
in Chapter 1, "Build Your First VisualAge COBOL Application." 


+ Select Browse from the Project menu. A prompt appears for you to enter 
the name of the database alias. Type SAMPLE and click on OK. The 
Database Schema view opens, displaying the data schema objects 
(tables and views) of the SAMPLE database. 


There are eight tables in the SAMPLE database. You may need to scroll 
or enlarge the window to see them all (Figure 51). 
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Figure 51. Database Schema View 


+ Double-click on any data schema object with mouse button 1 to expand it 


and see the columns that make up the table or view. 
Do not close the Database Schema view. 


In the next steps, you will open the Data Structure Mapping view and 
copy objects to it from the Database Schema view. 





4.2 Copying Data Schema Objects to the Data Structure Mapping view 
To open the Data Structure Mapping view: 


1. From your COBOL (non-GUI) project, select the Project menu-bar choice, 
then select the arrow button next to the Create choice. 
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2. A cascaded menu appears. From the cascaded menu, select Create New 
Data Structure Mapping from the Create menu choice. A prompt appears for 
you to enter the mapping file name. 


3. Type DA-TUT.SM and click on OK. The Data Structure Mapping view opens 
(Figure 52). 
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Figure 52. Data Structure Mapping View 


The Mapping view is made up of two panes. The left pane contains the data 
schema objects you copy over from the Database Schema view. The right pane 
contains the Mapping Control window, where you specify the data item mappings 
of the data structure. 


To create the data structure maps that are used to create SQL statements, you 
need to copy the data schema objects (tables or views) you are going to use 
from the Database Schema view over to the Data Structure Mapping view. In this 
tutorial, you use the Staff data schema object (table). 


To copy the Staff data schema object over to the Mapping view: 


1. Locate the Staff data schema object in the Database Schema view (Figure 
51). 


2. Press and hold mouse button 2 on the Staff data schema object while 
dragging the object from the Database Schema View window over to the 
Mapping View window, then release mouse button 2. 


The object will be copied, along with all its characteristics, in the Mapping 
View window (Figure 53). 
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Figure 53. Data Structure Mapping View with Staff Object 


3. Close the Database Schema view by double-clicking on the upper left corner 
of the title bar. 


Now you are ready to create a data structure that maps the data items to the 
data base. 


4.3 Mapping Data Structures 


In the following steps, you map a data structure to the SAMPLE database. Later, 
you use the data structure in the SQL Construction view to create your SQL 
statement. 


1. Expand the Staff object by double-clicking on it. Now you can see the 
columns that make up the Staff table (Figure 54). 


2. Click on the ID column of the Staff object. The data item name, source 
expression value, and SQL data type are entered into the data structure 
map. 

3. Select the Name, Dept, Job, and Salary columns in the same manner. 


If you want to delete a data item from the map, click on the selection 
indicator (the arrows that run down the left side of the mapping table) next to 
the item you want to delete and select Delete Data Item from the Selected 
menu. 
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STAFF.ID SMALLINT 
STAFF.NAME 4 VARCHAR 
4 STAFF.DEPT 4 SMALLINT 
4 STAFF.JOB 4 CHAR 
4 STAFF.SALARY 4 DECIMAL 











Figure 54. Completed Data Structure Map 


4. To save your data structure(Figure 54), select Save from the Data Structure 
menu. 


A message box appears telling you that three files have been saved: 
+ DA-TUT.INI (an internal INI file) 
« DA-TUT.SM (an internal mapping file) 
+ DA-TUT.CPY (a copybook file). 


These files are saved in a subdirectory of the directory specified by the 
ICOBDIR environment variable in your CONFIG.SYS file. This subdirectory is 
named /da. For example, if you type SET ICOBDIR on your OS/2 command 
line and the response is C:\COBOL , the data structure mapping files are 
saved in the directory c:\cobol\da. 


5. Select Report from the Data Structure menu bar to generate a report about 
the contents of the data structure mapping. A message appears to tell you 
that the report has been saved as the text file DA-TUT.RPT in the /da 
subdirectory of the directory specified by the ICOBDIR environment variable. 
You can view this report using any text editor. 


6. Click on OK to close the message window. 


7. Close the Data Structure Mapping view by double-clicking in the upper left 
corner of the title bar. 


To see other ways of adding or updating data items in the data structure 
mapping, select How Dol... from the Help menu bar, then select the appropriate 
topic from the list. 


With this simple data structure, you are now ready to create your SQL statement. 


Once you have built a catalog of reusable data structure mappings, you will be 
able to create most of the SQL statements you need without going back to the 
Database Schema or Data Structure Mapping views. You can then easily access 
the data structures from the SQL Construction view. In many cases, a data base 
administrator or team leader is likely to create the necessary mappings. Then 
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the application developer begins programming as described in 4.4, Creating an 
SQL Statement. 





4.4 Creating an SQL Statement 


In these steps, you open the SQL Construction view and use the DA-TUT.SM 
data structure you just mapped to build an SQL statement. 


To open the SQL Construction view (Figure 55): 


1. From your COBOL (non-GUI) project, select the Project menu bar choice, 
then select the arrow button next to the Create choice. 


2. A cascaded menu appears. From the cascaded menu, select Create New 
Text File with the COBOL Editor from the Create menu choice. The COBOL 
Editor displays the window titled Editor — Untitled Document 1. 


3. The COBOL Editor has language-sensitive features, but it does not 
automatically turn these on when you create a new file. To set on the 
COBOL language-sensitive editing features, from the New window: 


« Select CBL from the Language profile listbox. 
+ Then press the New pushbutton. 
The COBOL Editor will now recognize your untitled file as a COBOL file. 


For the Data Assistant toolbar icon and menu choices to appear, you must 
be editing a COBOL file with the extension .CBL , a copyfile with the 
extension .CPY, a COBOL DBz2 file with the extension .SQB, or a CICS file 
with the extension .CCP. 


4. Select Insert Code from the Edit menu, then select SQL from the Insert Code 
menu choice. This brings up the Data Assistant SQL Construction view. 


The following steps will create a simple SQL SELECT statement that lists the 
departments, ID numbers, positions, names, and salaries of all managers listed 
in the Staff table: 


1. Click on the drop-down list button to the right of the SQL Statement Type list 
box and select Select from the displayed list. 


2. Click on DA-TUT.SM in the Available data structure(s) window to select the 
data structure you mapped earlier. The Available data item(s) list box 
displays the columns you selected in the Data Structure Mapping view. 


3. Click on DEPT, ID, JOB, NAME, and SALARY. from the Available data item(s) 
window. Notice that an SQL statement is created in the SQL statement 
appearance window as you select the data items. You will need to scroll up 
to see the entire statement. 
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EXEC SOL 
SELECT STAFF.DEPT,STAFF.ID,STAFF.JOB,STAFF.NAME 
STAFF. SALARY 
INTO :DEPT, :ID, :JOB, :NAME, :SALARY 











Figure 55. Data Assistant SQL Construction View 


In this next step, you will add a condition to the SQL statement so that it selects 
only those staff members listed as managers. 


1. 


Select Condition from the SQL statement menu bar. This opens the Condition 
action window (Figure 56). 


. Click on JOB from the Operands and operators window. STAFF.JOB appears 


in the Condition (in SQL Syntax) window. 


. Click on Comparison operators from the Operand and operator types 


window. 


. Click on Equal in the Operands and operators window. 


5. Click in the Condition window and type a space, then ‘Mgr’ after the equal 


(=) sign. 
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STAFF.JOB = 'Mgr' 


> Greater than 

77, >= Greater than or equal 
77 BETWEEN 

77, LIKE 


zy 





Figure 56. Condition Action Window 


6. Click on the OK push button. The Condition action window disappears and 
the condition is entered in the SQL Statement Appearance window. Scroll 
up to view the condition. 


NI 


. In the SQL Construction view, scroll up to see the entire SELECT statement. 


. Click on the Generate push button to insert the code into the COBOL Editor 
session at the current cursor position (Figure 57). 


. Click in the COBOL Editor to see the tokens colorized. 
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* Data Asaiatant generated code, Do Not Modify. Ye 
* Include the following copy file in the DATA DIVISION: } 
* DA-TUT. CRY 

EAE Sq. 


SELECT STAFF. DEPT, STAFF.ID, STAFF. JOB, 3TAFF MAME, 
= STAFF SALARY 
I TMTO :DEPT, (10, :J0B, :MAME, ‘SALARY 
FROM STAFF 





WHERE STAFF. JOB = ‘Mgr’ 
END-EXEC, 











Ee 








Figure 57. SQL Statement Inserted into COBOL Editor 
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You have now successfully created an embedded SQL statement. As noted 
in the generated comments, remember to include the generated copy file in 
the Data Division of your program. 


10. Double-click on the upper left corner of the SQL Construction view to close 
the view. 


11. Double-click on the upper left corner of the COBOL Editor session to close 
the session. A window appears asking if you want to save the file. Click on 
the No push button and the file closes. We are not saving the file for 
purposes of this chapter. 


The ability to save and reuse data structure mappings makes Data Assistant 
more efficient each time you use it. You went through the entire process of 
mapping a data structure to a data base and then generating an SQL statement, 
you will be able in later sessions to go straight to the SQL Construction view and 
reuse the same mapping to create new statements. 


Chapter 4. Creating SQL Statements with Data Assistant 59 


60 VisualAge for COBOL Primer 


Part 2. Applications Using IBM VisualAge for COBOL for OS/2 
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Chapter 5. Project One: Non-GUI Programming with File Output 


This chapter presumes you have completed Part One of this document or have a 
working knowledge of VisualAge for COBOL for OS/2. 


In this chapter you will: 


+ Create a non-GUI project 

+ Create the application logic code 
Provide for data output to a file 

+ Build the application 
Run the application. 





5.1 Create a Non-GUI Project 


For this application, create a non-GUI COBOL project. The project should have 
the following parameters: 


Project name: Staff List 
« Directory name: Stafflist 


+ Target name: Stafflst.exe 


If you need to review how to create a non-GUI COBOL project, review Chapter 1, 
"Building Your First VisualAge for COBOL Application", Pages 3 through 6. The 
project setup window and Staff List— Icon view are illustrated in Figures 58 and 
59. 










@ Create a default COBOL project 
w Select from pre-defined project types 








Figure 58. Non-GUI Project Setup 
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Figure 59. Staff List- Icon view Project Window 


5.2 COBOL Editor and Creating Application Logic Code 


Next you should open the COBOL editor and enter the code as listed in 
Appendix D. If you need to review how to open the editor and enter COBOL 
source code, refer to Chapter 1, "Building Your First VisualAge for COBOL 
Application", Pages 6 through 8. The COBOL Editor with the source code 
entered is illustrated in Figure 60. 
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Figure 60. COBOL Editor with Staff List Application Code 


The text of the source code in the COBOL Editor is multi-colored: 
+ COBOL statements and reserved words are blue. 


«+ Comments are turquoise. 
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+ Variables are black. 
+ SQL code is displayed in green. 
+ Constants are highlighted with purple. 





5.3 Providing for Data Output to a File 
Because you are now going to be creating an OS/2 file, there must be a 
mechanism to allow COBOL to access the file on OS/2. 


In the FILE-CONTROL, the file called STAFFLIST is assigned to VAR1 which is a 
system variable. The assign statement remains the same, but before running 
the program, you will need to do assign the variable. From the Staff List— Icon 
View window: 


+ Click on View 

+ Select Tools setup 
The default view window is of valid actions for the project. Change this to show 
the variables: 

« Click on View option in Staff List- Tools Setup window (Figure 61) 

+ Select Variables 
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Figure 61. Staff List- Tools Setup Window 


Now add the variable as follows: 
« Click on Variables option and select Add 
- Type in the name of the variable to be added (in this case, VAR7) 


« Type in the string value that the variable is to be set to, as in Figure 62. 
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Figure 62. Add Environment Variable Window 


+ Press the Add pushbutton 
+ Close the Staff List- Tools Setup window. 


5.4 Build the Application 


Once you have saved all files, you should now build the application. If you need 
to review how to build and application, refer to Chapter 1, "Building Your First 
VisualAge for COBOL Application", Pages 8 and 9. Once you have built the 
application successfully you will see additional files in the Staff List- Icon View 
window as shown in Figure 63. 
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Figure 63. Staff List- Icon View Window with Build Files 


5.5 Running the Application 


Now that the program has compiled successfully, you can run the application. If 
you need to review how to run an application from the Staff List- Icon View 
window, refer to Chapter 1, "Building Your First VisualAge for COBOL 
Application", page 9. One you run the application, you will note that and 
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additional file, STAFFLIST.TXT is present in the file listing area of the project 
(Figure 64). 
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Figure 64. Staff List- Icon View Window with Stafflist.txt File 


Double-click mouse button 1 on STAFFLIST.TXT and you will see the contents of 
the output placed in the file as shown in Figure 65. 
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Figure 65. Contents of Stafflist.txt File 
You can now close all windows. You have completed project one. 


The complete source code listing for this project is in Appendix D. 
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Chapter 6. Project Two: Using the Data Assistant 


In this chapter you will use the Data Assistant to prepare the SAMPLE database 
for use in project three in the next chapter. You should have completed part one 
of this document or have a working knowledge of VisualAge for COBOL for OS/2 
in order to complete this chapter. If you need to review about how to use the 
Data Assistant, you should refer to Chapter 4, "Creating SQL Statements with 
Data Assistant" on pages 49 through 57. 





6.1 Examining Objects in the Database Schema View 


You must first start DB2/2 and then open a non-GUI COBOL project. You can 
use the non-GUI COBOL project created in Chapter 5. Then open the schema 
view on the SAMPLE database. You can do this by selecting Browse from the 
Project menu in the COBOL project. When prompted for the database name fillin 
SAMPLE. See Figure 66. 





Wee 
Hyg 


i 








Figure 66. Database Schema View— SAMPLE Database 


Do not close the SAMPLE— Schema window. 





6.2 Copying Data Schema Objects to the Data Structure Mapping View 


Open the Data Structure Mapping view from the Project menu-bar choice. The 
mapping file name used of this chapter is STAFFLST.SM Drag and drop the 
STAFF data schema object from the Schema view window to the 

STAFFLST— Mapping window. The result is illustrated in Figure 67. 
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Figure 67. Data Structure Mapping View with Staff Object 


Do not close the Schema or Mapping windows. 


6.3 Mapping Data Structures 


Open the STAFF object in the STAFFLST— Mapping window and map all the data 
items. You will see Figure 68 once you have completed the mapping. 


= 


4 SMALLINT 
2 STAFF.NAME 4 VARCHAR 
4 STAFF.DEPT 4 SMALLINT 


2 STAFF.JOB 4 CHAR 

2 STAFF.YEARS 4 SMALLINT 
7 STAFF.SALARY 7 DECIMAL 
2 STAFF.COMM 3 DECIMAL 











Figure 68. Completed Data Structure Map 


Select Map to database... from the Data structure menu-bar. This completes the 
data structure mapping. Save the data structure from the Data structure 
menu-bar. 


You have now completed the data structure mapping for the SAMPLE database 


and this mapping will be used in Chapter 7. Close all windows and the COBOL 
project. 
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Chapter 7. Project Three: GUI Programming Using Data Assistant 
and DB2/2 


This chapter presumes you have completed Part One of this document or have a 
working knowledge of VisualAge for COBOL for OS/2. If you need to review 
building a GUI COBOL project, creating GUI screens, and creating application 
logic code with the GUI code assistant, refer to Chapters 2 and 3. 


In this chapter you will create an application that displays a window, waits for 
some form of input from the keyboard, reads a DB2/2 table, does a calculation, 
and returns information on the displayed window. 
In this chapter you will need to: 

« Create a GUI COBOL project 

« Design a GUI screen with parts 

+ Create the application logic 

Insert SQL code using the Data Assistant 
+ Build the application 


Run the application. 


7.1 Create a GUI COBOL Project 


For this application, create a COBOL GUI designer project. Once you have 
started the COBOL GUI Designer save the project under the application name of 
Sales Department and take the predefined defaults for Target folder or project 
and Source directory in the Save as... selection from the Project menu-bar. You 
will see Figure 69. 
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Figure 69. COBOL GUI Designer— Sales Department Application 


7.2 Design GUI Screen with Parts 


Design the following screen (Figure 70) with parts from the Parts Palette and set 
the parameters for each part as indicated. 





Static text 


Static text 











Figure 70. GUI Window with Parts 
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+ Upper left static text 

— Change text to: Give the % (>2 <9) 
Entry field 

— Change part name to: ENT-PCENT 


— In Data tab, change: length to 5, type to numeric, decimals to 2 


— In Validation, select Range radio button, change: minimum to 2 and 
maximum to 9 


+ Middle static text 
— Change text to: /D Name Old-Salary New-Salary 
« List Box 
— Change part name to: LBX-SALARY 
« Push Button 
— Change part name to: PUSH-BUTTON 
— Change label to: Process 
+ Window 
— Change part name to: NEW-SALARY 


— Change title to: New Salary for Sales Department 


You will see Figure 71 upon completion of the changes above. 





Movs ereecoume | 


Give the % [>2 <9] 


‘Name oo “Old-Salary. New-Salary 








Figure 71. GUI Window with Changed Parts 


Remember to select Save from the Project menu-bar. You have now completed 
designing the GUI screen. 
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7.3 Create the Application Logic 
To create the application source code: 


« Click on Project from the menu-bar of the COBOL GUI Designer project 
window. 

- Select Source code. 

+ Scroll through the source code and notice that some event code for the GUI 
screen has already been generated (Figure 72). 

+ Save and close the COBOL GUI Editor window. 


LL 


Replace 








DATA DIVISION, 
FILE SECTION, 
WORKING-STORAGE SECTION, 
G1 ¥DE-AC PIC $9(9) USAGE COMP. 
COPY RETURNCD. 
COPY YACCESS, 
* LOCAL-STORAGE SECTION, 

LINKAGE SECTION, 
COPY SALESDEP. 
COPY YEVENTS, 




















PROCEDURE DIVISION USING CommandLine-Data. 
GOBACK, 





ENTRY 
"MEW-SALARY NEW-SALARY DESTROY” 
USING YDE-SALESDEP. 
MOVE YOE-TERMINATE-APPLICATION TO ACTION-AC. 
GOBACK. 


END PROGRAM “SALESDEP” 








Figure 72. COBOL GUI Editor for Sales Department Application 








7.4 Creating the First Event 


When the window is opened, we would like the cursor to be at the input field. In 
other words we need to focus the cursor. This occurs when the window is 
created. Complete the following: 


+ Double-click on New-Salary icon of the COBOL GUI Designer window. 


« Click mouse button 2 on title line of canvas (New Salary for Sales 
Department) 


+ Select Events 
« Select Create 
The COBOL editor automatically opens the window containing your source code 


as shown in Figure 73. Also notice that event code for creating the GUI window 
has been already generated in your source code. 
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GOBACK. 





ENTRY 
"HEW-SALARY NEW-SALARY DESTROY” 
USING ¥DE-SALESDEP. 
MOVE VDE-TERMINATE-APPLICATION TO ACTION-RC. 
GOBACK , 
ENTRY 
“WEW-SALARY NEW-SALARY CREATE” 
USING YDE-SALESDEP. 


GOBACK. 
END PROGRAM “SALESDEP” 
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Figure 73. COBOL GUI Editor for Sales Department Application 
To generate the code for focusing the cursor in the entry field, complete the 
following: 


+ Click on line prior to where the code will be inserted. This is the line right 
after "NEW-SALARY_NEW-SALARY_CREATE" USING VDE-SALESDEP. 


+ Click on Edit. 
- Select Insert Code. 
+ Select GUI. 


You will see Figure 74. 
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Figure 74. GUI Code Assistant for NEW-SALARY Window Empty 


- Select NEW-SALARY 
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+ Select ENT-PCENT 
+ Scroll through routines 
+ Select enableFocus 


You will see the completed GUI Code Assistant window as shown in Figure 
75. 
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Figure 75. GUI Code Assistant for NEW-SALARY Window Completed 
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+ Click on Generate 


+ Close the GUI Code Assistant window. 


The source code in the COBOL GUI Editor window should now have the CALL 
"enableFocus" code generated. (Figure 76). 
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ENTRY Py 

"MEW-SALARY NEW-SALARY DESTROY" Y 
USING VDE-SALESDEP, 

MOVE YDE-TERMINATE-APPLICATION TO ACTION-AC. 

GOBACK. 


ENTRY 
“MEWSALARY HEW-SALARY CREATE” 
USING YDE-SALESDEP, 


CALL "“ensbleFoecus" USING ENT-PCENT-HANDLE, 


YVOE-RAC gy 
GOBACK. 
END PROGRAM “SALESGEP’, 2 
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Figure 76. COBOL GUI Editor with CALL "enableFocus" Code Generated 


Position the cursor after the last GOBACK. on a blank line in the COBOL GUI 
Editor window. 





7.5 Creating the Pushbutton Event 


When the application is invoked (Figure XXXXXXXXXXXXX), the window 
displayed and the cursor will be positioned at the input field. We expect the user 
to key in a number and press the Process button. The application will do 
nothing until the pushbutton is pressed. The event, then, is "push the button." 

To add the event: 


« Click mouse button 2 on the Process pushbutton in the COBOL GUI Designer 
window. 


+ Select Events 


- Select Press 


The code for this event is generated and appears in the source listing (Figure 
77). 
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“WEW-SALARY MEW-SALARY CREATE” 
USING YDE-SALESDEP. 


CALL “enableFocus" USING ENT-PCENT-HANDLE, 
YDE-RE 
GOBACK, 


ENTRY 
“WEW-SALARY PUSH-BUTTOM PRESS" 
USING YDE-SALESDEP. 


GOBACK. 
END PROGRAM “SALESDEP”. 
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Figure 77. COBOL GUI Editor with PUSH-BUTTON_PRESS Code Generated 


All the code does at present is provide the entry for something to happen. 


7.6 Creating Logic Within the Event 
Logic still needs to be added which includes: 
+ Get percent number. 


« Display data. 


To get the contents of ENT-PCENT: 


- Position the cursor on a blank line above the last GOBACK in the COBOL 
GUI Editor window. 


« Click on Edit 

- Select Insert Code 

+ Select GUI. 

+ Select NEW-SALARY in window list 

+ Select ENT-PCENT in parts list 

+ Select getContents from routines (Figure 78) 
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Identifier: 
identitord: 


Return code: 


CALL "getContents" USING ENT-PCENT-HANDLE, 
Contents, 
Y¥YDE-RC 





Return contents from an entry field portion of a part. 


LILLIE 








Figure 78. GUI Code Assistant for "getContents" Event Code 


- Click on Generate 
+ Click on Close 


The code is now inserted into your program (Figure 79). 


GOBACK. 

ENTRY 

“MEW-SALARY MEW-SALARY CREATE” 
USING VDE-SALESDEP, 


CALL “enableFocus" USING ENT-PCENT-HANDLE, 
YDE-RG 
GOBACK , 


ENTRY 
"MEW-SALARY PUSH-BUTTOM PRESS” 
USING VDE-SALESDEP., 


CALL "getCantents" USING ENT-PCENT-HANDLE, 
Contents, 
YDE-RG 


GOBACK, 
END PROGRAM "“SALESDEP". 











Figure 79. COBOL GUI Editor with "getContents" Event Code 


Select Save from the File menu-bar. 
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7.7 Inserting DB2/2 Code 


At this stage you will need to translate the application to a DB2 application. You 
will have to include the SQL code as well as the code to display the list-box 
data. Complete the following steps: 


+ Save your application from the COBOL GUI Designer window. 


- Position the cursor on a blank line after the WORKING-STORAGE SECTION in 
the COBOL GUI Editor window. 


+ Insert the following: 


— Item lines for the list-box: 

















01 W-ITEM. 
05 W-num PIC 99999, 
05 FILLER PIC X(2) VALUE SPACE. 
05 W-name PIC X(9). 
05 FILLER PIC X(2) VALUE SPACE. 
05 W-salary PIC X(9). 
05 FILLER PIC X(2) VALUE SPACE. 
05 W-new-salary PIC X(9). 
— For the calculation 
01 psalary pic 299999V,99. 
01 xsalary pic X(9) redefines psalary. 
01 new-salary pic s9(5)v99 usage comp-3 value 0. 
01 pcent pic 99999 value 0. 
— for DB2 
copy "sqlenv.cbl". 
copy "sql.cbl". 
copy "sglca.cbl". 
EXEC SQL 
BEGIN DECLARE SECTION 
END-EXEC. 
77 num pic S9(4) Usage comp-5. 
01 job pic x(5). 
77 salary pic s9(5)v9(2) Usage comp-3. 
01 name pic x(9). 
EXEC SQL 
END DECLARE SECTION 
END-EXEC. 


« After the getContents insert the following: 


MOVE contents-string to pcent 
COMPUTE pcent = (pcent + 10000) / 100 


- After the last GOBACK statement 
Fetch-Loop Section. 


if SQLCODE not equal 0 
go to Test-Fetch-Loop. 


MOVE num to W-num 
MOVE name to W-name 
MOVE salary to psalary 
MOVE xsalary to W-salary 
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MOVE 0 to new-salary 
COMPUTE new-salary = (salary * pcent) / 100 
MOVE new-salary to psalary 
MOVE xsalary to W-new-salary 
go to Test-Fetch-Loop. 
End-Fetch-Loop. exit. 


« Using the GUI Code Assistant (Figure 80), insert the code for addiltemEnd for 
the list box after 


MOVE XSALARY TO W-NEW-SALARY 


Be sure that the cursor in positioned on a blank line after MOVE XSALARY TO 
W-NEW-SALARY. 





# GUI Code Assistant - D: 
Windows 







Identifier: 


felpreti Flere: 





Return code: 


WY \nclude MOVE Statement{s] 










Y 








; Vl. ER Y. Lp 
jAdd a new item to the end of list. 











Figure 80. GUI Code Assistant for "addltemEna" for List Box 


Tha additemEnd requires some modifications per the length of the filed and 
variable name. These can be designed by selecting the Edit MOVE... push button 
in the GUI Code Assistant window. Refer to Figures 81 and 82 on making these 
modifications. 









_) additemEnd 


@ Include 





TRA 





Figure 81. Edit MOVE Push Button "addltemEnd" Window 
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This action modifies the MOVE length to 38 and modifies the variable name to 



















W-ITEM. 
GUI Code Assistant - D:\IBMCOBOL\SALESDEP\SALESDEP.CBL:1 (7 
Windows Parts Routines i 
HEY SALARY 7 CANODOUA A oetticight 
ENT-PCENT 7) setHeight 





. 


Identifier: Item 









feloreti Fler 2: 


Retin ends MOE Re ae 


(@ Include MOVE Statement[s] 

oor at Sc leat i etree asco mc 

MOVE W-ITEM TO Item- String 

CALL "addltemEnd" USING LBK-SALAR'Y-HANDLE, 
Item, 





Add a new item to the end of list. 


ALLA LALLA LALLA LALA ALAA LALLA LALA ALLL DLAI LULLULLLLLO SOLO ELD OL OLE BLL ELI EOL OL OLE ELE SOL OLE OLE ELASOL OLE BL ELLE AUAALADLA AAA DLU AAU AAD Abbe 





Figure 82. GUI Code Assistant with "addltemEnd" Modification Made 


Select Generate and your COBOL GUI Editor window will have the code shown in 
Figure 83. Close the GUI Code Assistant window. 








SDEP.CBL: 1 





/ Row 103 Column 1 Replace 1 change 


GO TO TEST-FETCH-LOOP. 


MOVE NUM W-NUM 

MOVE NAME W-NAME 

MOVE SALARY PSALARY 

MOVE SALARY W-SALARY 

MOVE @ NEW-SALARY 

COMPUTE NEW-SALARY (SALARY * PCENT) / 189 
MOWE NEW-SALARY PSALARY 

MOVE SALARY TO) W-NEW-SALARY 


MOVE 36 TO Item-Length 

MOVE W-ITEM TO Item-String 

CALL "addftemEnd" USING LBX-SALARY-HANDLE, 
Iten, 

VDE-RC 








END-FETCH-LOOP. 
ERIT. 
END PROGRAM “SALESDEP” 





Figure 83. COBOL GUI Editor with "additemEnad" Code Included 


Select Save from the File menu-bar in the COBOL GUI Editor window. 
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7.7.1. Using Data Assistant and the SQL Construction Utility 


There are still some SQL statements that must be coded into the program. 
Instead of having to remember all the parts that must be included, and all the 
column names, it would be much easier to use the SQL Construction utility. To 
do this, you need to position your cursor on the correct line of code and select 
Insert Code from the Edit pull-down menu of the COBOL GUI Editor window. 


« Click on the line of code where COMPUTE PCENT + (PCENT + 10000) / 100 
appears and move the cursor down one line to a blank line 


+ Click on Edit 
+ Click on the arrow at Insert Code 
-« Select SQL 


An SQL Construction window (Figure 84) will appear. 














Figure 84. SQL Construction Window 


The next steps are these: 
+ Select STAFFLST.SM 
+ Change Cursor name to CURSTAFF 
+ Select FETCH BLOCK from the SQL statement type pull-down menu 
« Select the following data items: 
- ID 
— JOB 
— SALARY 
— NAME 
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Scroll through the SQL statement in the bottom window to see what will be 
generated (Figure 85) 


QL Construction - D:\IBMCOBOL\SALESDEPSSALESDEP.CBL_ 
= - tei OO 


enerate SQL statements based upon user select 


ie 

EXEC SOL 

DECLARE CURSTAFF CURSOR FOR 
SELECT STAFF.ID, STAFF.JOB, STAFF.NAME, STAFF.SALARY 


_ FROM STAFF 


LETT UELETTUEEEETTLEELET TELE LEET TUE 








Figure 85. SQL Construction Window-— Completed 
+ Click on Generate 
+ Close the window 


The COBOL GUI Editor window should now reflect the SQL code just generated 
as shown in Figure 86. 
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COBOL GUI Editor - D:\...\SALESDEP.CBL: 


, Row 66 Column 1 Replace ‘ 4 changes 





MOVE CONTENTS-STRING TO PCENT 
COMPUTE PCENT = (PCENT + 10908) / 1a 


* Data Assistant generated code. Do Not Modify. 
* Include the following copy file in the CATA DIVISION: 
x STAFFLST.CPY 
EXEC SOL 
DECLARE GURSTAFF CURSOR FOR 
SELECT STAFF.ID, STAFF.JOB, STAFF.MAME, STAFF.SALARY 
FROM STAFF 
END-EXEC, 
EAE Sq. 
OPEN CURSTAFF 
END-EXEC, 





BAEC SQL 








Figure 86. COBOL GUI Editor Widow with SQL Code 


You should save the latest changes to the COBOL code in the COBOL GUI Editor 


window. 


Look at what has been inserted into your code. You should see the 

«+ DECLARE CURSTAFF exec 

+ OPEN CURSTAFF exec 

+ FETCH CURSTAFF exec 

+ WHENEVER NOT FOUND exec 

+ CLOSE CURSTAFF exec 
There is no CONNECT exec, so insert one above the EXEC SQL DECLARE 
CURSTAFF statement. 


EXEC SQL 
CONNECT TO SAMPLE 
END-EXEC. 


After the CLOSE CURSTAFF, insert 


EXEC SQL 
CONNECT RESET 
END EXEC. 


After the FROM STAFF statement, insert 
WHERE JOB = 'SALES' 
ORDER BY ID 


Move the following to the line after the FETECH LOOP SECTION statement 


EXEC SQL 

FETCH CURSTAFF 

INTO :ID, :JOB, :NAME, :SALARY 
END-EXEC. 
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Since :ID variable in the FETCH CURSTAFF INTO....is a reserved word, it must be 
changed to :NUM. 


Add the following code for performing the TEST-FETCH-LOOP after the END-EXEC 
of the WHENEVER NOT FOUND statement 


TEST-FETCH-LOOP. 
PERFORM FETCH-LOOP THRU END-FETCH-LOOP 
UNTIL SQLCODE NOT = 0. 


Add the following code to start the TEST-FETCH-LOOP processing one line 
before the END-FETCH-LOOP statement 

GO TO TEST-FETCH-LOOP. 
The program is now ready to be compiled, however, you need to set some 
options to allow the SQL code to be compiled beforehand. First, though, 


+ Save your program and close all windows. 


7.8 Precompile DB2 Applications 


To begin with, double-click on Sales Department icon on — top your desktop. The 
Sales Department— Icon View window will appear as shown in Figure 88. 





- leon view 


LL 
ee 





[*| SalesDep. ipf 
[| SalesDep.ipm 
@ SALESDEP.ODF 
("| SalesDep. tac 
("| SalesDep.ypf 








Figure 87. Sales Department- Icon View Window 


From the Sales Department— Icon View window 
+ Click on Options 
+ Select Compile 
+ Click on Process COPY...statements (Figure 89) 
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oe oar 
tip Ys ay 


GUI Compile : File scope - IDM COt a 


Source Language Syntactical Options 


Literal delimiter character 


Apostrophe #&@ Quote 


i Use source line numbers 
-Resolye program names: 


f\Upper-cased {as-is 





IX 
_ 


= 








Figure 88. GUI Compile Options Window- Syntactical Tab 


+ Click on Link tab 


+ type D:\SQLLIB\LIB\DB2API1.LIB at Enter library/object files name(s) (Figure 
88) 














OSI 


aUI Compile : File scope - IBM COBOL Compiler Options ve 








Link Options Current Yalues 
syntactical 





Enter output file name: 





Enter map file name: p aie 
rocessing | 





Enter library/object file name[s): Semantic 


Enter module def file: 


Enter linker options: 








Figure 89. GUI Compile Options Window- Link Tab 
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+ Click on Prep tab 
+ Click Preprocess for SQL (Figure 90) 
+ Type SAMPLE into database name 


Hott 
Ye 





Yi, 


‘Processing 
Enter database name: E / ‘Semantic 
@ Preprocess for CICS Debug 


Eater CICS sraprecessor aptiang: [7 ' |System 
Link 


Prep 


SIRE 





Figure 90. GUI Compile Options Window- Prep Tab 
+ Click on OK 


Now you are ready to build your program. 


7.9 Building GUI Applications 


Select Build from the Project menu-bar of the Sales Department— Icon View 
window. The build process will start and if you are successful you will see Figure 91. 
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tis 
Sales Department — leon view pe 









Z2 
i [| SalesDep.vpf [7 SalesDep.rc [| SalesDep.DEF (7) Sale: 
[*| SalesDep.ipf [| SalesDep.cPY [| SalesDep.ppr [| salesdep.dll [7 Sale: 
[| SalesDep.ipm [| SalesDep.ODX [7 SalesDep.lst [| SalesDep.ODX [7] Sale: 
@ SALESDEP.ODF [4 POO00001.rc  [) SalesDep.obj [| SalesDep.$mm 


4) SalesDep.txc [| SalesDep.bre 4% COBSENY.CMD [7] SalesDep.MAK 
| ee 
i 

















Figure 91. Sales Department- Icon View Build Complete 





7.10 Running the Application 


Select Run from the Project menu-bar of the Sales Department— Icon View window. 
The application begin executing and once you entry a value for the percentage you 
will see the results of the calculation displayed in the list box as shown in Figure 92. 


Hew salary for Sales Department 


Give the % [>2 <9] 


ID Name Old- Salary New- Salary 


18171,25  18716,38 
18006,00 18546,18 
16808,30 17312,54 

16502,83 16997,91 
18001,75  18541,80 











Figure 92. Sales Department- Icon View Run Complete 


As shown in Figure 92, you may have to go back and reposition the static text and 
the width of the list box for appearance reasons. You can enter the COBOL GUI 
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Designer by double-clicking on the SALESDEP.ODF file in the Sales 
Department— Icon View window. 


You have now completed project three. 


The complete source code listing for this project is in Appendix E. 
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Appendix A. Hello Application Source Code 


This appendix lists all the source code for Chapter 1, "Building Your First 
VisualAge for COBOL Application 





A.1 Hello Application Code 


KKEKKKKKKKK KK KKK KKK KK KKK KKK KKKKKKKKK 


IDENTIFICATION DIVISION. 


KKEKKKKKKKKKK KKK KKK KK KK KKKKKKKKKKKKK 


ge) 


ROGRAM-ID. HELLOAPP. 
AUTHOR. Tester. 


KKEKKKKK KKK KKK KK KK KK KKK KKK KKKKKKKKK 


ENVIRONMENT DIVISION. 

JOS GIO GIG IG IG II I I III EK 
CONFIGURATION SECTION. 

* SOURCE-COMPUTER. 

*OBJECT-COMPUTER. 





KKEKKKKK KKK KKK KR KKK KK KKK KKKKKKKKKKKK 


DATA DIVISION. 


KEKKKKKKKK KK KKK KKK KK KKK KKK KKKKEKKKKK 


WORKING-STORAGE SECTION. 


01 PROGRAM-WORK-FIELDS. 











05 INPUT-NAME PIC X(30). 
05 OUTPUT-NAME PIC X(37). 
01 PROGRAM-FLAGS. 
05 LOOP-FLAG PIC 9(01). 
88 LOOP-DONE VALUE 1. 
88 LOOP-NOT-DONE VALUE 0. 


KEK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KR KKKKKKK 


PROCEDURE DIVISION. 


KKEKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKKKKKKRK 





0000-MAINLINE. 


INITIALIZE PROGRAM-WORK-FIELDS 
PROGRAM-FLAGS . 





PERFORM UNTIL LOOP-DONE 
DISPLAY " " 
DISPLAY "Enter a name or Q to quit:" 
ACCEPT INPUT-NAME 

IF FUNCTION UPPER-CASE (INPUT-NAME) = "Q" 
SET LOOP-DONE TO TRUE 











ELSE 
OVE SPACES TQ OUTPUT-NAME 

OVE "Hello, " TO QUTPUT-NAME (1:7) 
OVE INPUT-NAME TO OUTPUT-NAME (8:30) 
DISPLAY OUTPUT-NAME 

END-IF 
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END-PERFORM. 


Q000-EXIT. 
GOBACK. 
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Appendix B. Hello GUI Source Code 


This appendix lists all the source code for Chapter 2, "Building Your First 
VisualAge for COBOL GUI Application. 





B.1 Hello GUI Application Source Code 








PROCESS QUOTE LIB PGMNAME (MIXED) THREAD TRUNC (OPT) 
IDENTIFICATION DIVISION. 

PROGRAM-ID. "HELLOGUI" RECURSIVE. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 





* SOURCE-COMPUTER. 

* QBJECT-COMPUTER. 
SPECIAL-NAMES . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-0-CONTROL. 














DATA DIVISION. 
FILE SECTION. 
WORKING-STORAGE SECTION. 
0 DE-RC PIC $9(9) USAGE COMP. 
OPY RETURNCD. 

OPY VACCESS. 
SECTION. 





FPOoOoac 


* LOCAL-STOR 
LINKAGE SECT 











COPY HELLOGUI. 
EVENTS. 





COPY V. 











PROCEDURE DIVISION USING CommandLine-Data. 
GOBACK. 


ENTRY 
"HELLOGUI_HELLOGUI_DESTROY" 

USING VDE-HELLOGUI. 

OVE VDE-TERMINATE-APPLICATION TO ACTION-RC. 
GOBACK. 
ENTRY 
"HELLOGUI_GREETME_PRESS" 
USING VDE-HELLOGUI. 


























CALL "getContents" USING NAME-HANDLE, 
Contents, 

VDE-RC 

MOVE "Hello, " TO NewText-String (1:7) 

MOVE Contents-String(1:Contents-Length) 

TO newText-String (8:Contents-Length) 

ADD 7 Contents-Length GIVING NewText-Length 
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CALL "setContents" USING GREETING-HANDLE, 
NewText, 
VDE-RC 


GOBACK. 
END PROGRAM "HELLOGUI". 
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Appendix C. Tax Comuptation Application Source Code 


This appendix lists all the source modules for Chapter 3, "Creating a Tax 
Computation Appication with a GUI." 





C.1 The Tax Calculation Subroutine Code 


IDENTIFICATION DIVISION. 
PROGRAM-ID. TAXCALC. 
AUTHOR. STUDENT PROGRAMMER. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


DATA DIVISION. 
YORKING-STORAGE SECTION. 











01 PROGRAM-CONSTANT-FIELDS. 
05  SALES-TAX PIC V9(2) VALUE .08. 








LINKAGE SECTION. 


01 TAXCALC-PARM-LIST. 

05 SALES-AMOUNT-CHAR PIC X(5). 

05 SALES-AMOUNT REDEFINES SALES-AMOUNT-CHAR 
PIC 9(5). 
05 TOTAL-AMOUNT-CHAR PIC X(8). 
05 TOTAL-AMOUNT REDEFINES TOTAL-AMOUNT-CHAR 
PIC 9(6)V9(2). 

















PROCEDURE DIVISION USING TAXCALC-PARM-LIST. 





COMPUTE TOTAL-AMOUNT = SALES-AMOUNT + 
(SALES-AMOUNT * SALES-TAX) . 





GOBACK. 





C.2 The Tax Computation Source Code 








PROCESS QUOTE LIB PGMNAME (MIXED) THREAD TRUNC (OPT) 
IDENTIFICATION DIVISION. 

PROGRAM-ID. "TAXCOMPU" RECURSIVE. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 





* SOURCE-COMPUTER. 
BJECT-COMPUTER. 
SPECIAL-NAMES . 
PUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-0-CONTROL. 
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* 


DATA DIVISION. 





FILE SECTION. 
WORKING-STORAG 
01 VDE-RC 
COPY RETUR 
COPY VACCE 
LOCA L-STO RAGE 
01 TAXCALC-PA 





E SECTION. 

PIC $9(9) USAGE COMP. 
CD. 
55. 
SECTION. 
RM-LIST. 


05 SALES-AMOUNT-CHAR PIC X(5). 
05 TOTAL-AMOUNT-CHAR PIC X(8). 








LINKAGE SECTION. 


COPY TAXCO 
COPY VEVEN 








PROCEDURE DIVI 
GOBACK. 


ENTRY 








US 
OVE VDE-T 
GOBACK. 
ENTRY 








PU. 
TS. 


SION USING CommandLine-Data. 


"FRA-TAXCOMPUTATION_FRA-TAXCOMPUTATION_DESTROY" 


ING VDE-TAXCOMPU. 
ERMINATE-APPLICATION TO ACTION-RC. 


"FRA-TAXCOMPUTATION_PSB-COMPUTETAX_PRESS" 


US 





CALL "getC 





OVE Conte 
TO SAL 


OVE 8 TO 
OVE TOTAL 
CALL "setC 











GOBACK. 




















ING VDE-TAXCOMPU. 
ontents" USING ENT-SALESAMOUNT-HANDLE, 
Contents, 
VDE-RC 
nts-String(1:Contents-Length) 





ES-AMOUNT-CHAR. 





CALL "TAXCALC" USING TAXCALC-PARM-LIST. 


Contents-Length 
-AMOUNT-CHAR TO Contents-String(1:Contents-Length) 
ontents" USING ENT-TOTAL-HANDLE, 











END PROGRAM "TAXCOMPU". 





Appendix D. Project One: Non-GUI Programming with File Output 
Code 


This appendix lists the source modules for Chapter 5, "Project One: Non-GUI 
Programming with Flle Output." 


D.1 Non-GUI Programming with File Output Source Code 


identification division. 
x 

program-id. "stafflst". 
author. renee. 

* 


environment division. 
x 
configuration section. 
input-output section. 
file-control. 
select stafflist assign to varl 
organization is line sequential. 
data division. 
file section. 
fd stafflist. 
01 output-record. 
05 out-name pic x(9). 
05 filler pic x(2). 
05 out-dept pic x(4). 











working-storage section. 
procedure division. 


0000-entry. 
open output stafflist 
move spaces to  output-record 
move "name" to  out-name 
move "dept" to  out-dept 


write output-record 


move all "-" to  output-record 
write output-record 





























move spaces to  output-record 
move "IBM" to  out-dept 
move "Renee" to  out-name 





write output-record 
close stafflist. 
exit. 


0000-exit. 
goback. 
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Appendix E. Project Three: GUI Programming Using Data Assistant 


and DB2/2 


This appendix lists the source code for Chapter 7, "Project Three: GUI 


Programming Using Data Assistant and DB2/2." 


E.1 Sales Department Application Source Code 
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RO 
DE 
RO 
UT 
5 


tS tH DU 


CA XD Dt 
(2 
QHrHy 





ENV 
CO 
* 50 
* OB 
SPE 
INP 
FIL 
I-0 





CESS QUOTE LIB PGMNAME (MIXED) THREAD TRUNC (OPT) 
TIFICATION DIVISION. 

GRAM-ID. "SALESDEP" RECURSIVE. 

HOR. 
TALLATION. 
E-WRITTEN. 
E-COMPILED. 
URITY. 





IRONMENT DIVISION. 
FIGURATION SECTION. 
URCE-COMPUTER. 
JECT-COMPUTER. 
CIAL-NAMES . 
UT-OUTPUT SECTION. 
E-CONTROL. 
-CONTROL. 














DATA DIVISION. 





01 
01 
01 
01 











KING-STORAGE SECTION. 


U 
LER 

05 W-NAME 
LER 

05 W-SALARY 

05 FILLER 

05 W-NEW-SALARY 


VALUE SPACE. 


VALUE SPACE. 


VALUE SPACE. 





U tu U0 tv 0 Uv td 





lQOAAlAAaADdADQdACCN 


PSALARY P 
XSALARY RE 
EW-SALARY P 
PCENT P 


299999V, 99. 

EFINES PSALARY PIC X(9). 
S9(5)V99 USAGE COMP-3 VALUE 0. 
99999 VALUE 0. 























€2. 4-5) £2 


COPY "SQLENV.CBL". 
COPY "SQL.CBL". 
COPY "SQLCA.CBL". 


EXEC SOL 
BEGIN DECLARE SECTION 

END-EXEC. 

U PIC $9(4) USAGE COMP-5. 

JOB PIC X(5). 

SALARY PIC $9(5)V9(2) USAGE COMP-3. 
AME PIC X(9). 

EXEC SOL 

END DECLARE SECTION 





oO 
| 














01 


PROCED 





CA 


GO 


ENT 
"NE 








= 
L 

th 

= 

im 

th 





EN 
F 
i 


TEST-F 
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EN 
VD 
CO 
CO 


GO 


GO 


URE 


ENTRY 
"NE 


= 
th 


OVE VDE-TERI 
BACK. 
ENTRY 

"NE 


= 


30 


a 





Lili 


RY 
50. 


a 





" 
Li 











5 
EN 
Hk 











ETCH 


D-EXE 
E-RC 
PY RE 


E SE 
PY SA 
PY V. 


~SALARY_ 


istant generated code. 


EX 
EXE 
hi 


nal 
Due 


PIC $9(9) USAGE COMP. 


TURNCD. 


a 


PY VACCESS. 
* LOCAL-STO 
LINKAG 
CO 
CO 


RAGE SECTION. 

CTION. 
LESDEP. 

EVENTS. 











Wo 


VISION USING CommandLine-Data. 


BACK, 


EW-SALA 
G VDE-SA 
INATE-A 


ESTROY" 
EP. 
CAT 


RY_D 
LESD 
PPLI 


USIN 
ON TO ACTION-RC. 


ALARY_] 
USIN 


EW-SALARY_C 
G VDE-SALESD 


REAT 
EP. 


RE" 














enableFocus" USING ENT-PCENT-HANDLE, 


VDE-RC 


BACK. 


ALA 
U 


RY_PUSH-BUTTON_PRESS" 
SING VDE-SALESDEP. 


U 


getContents" USING ENT-PCENT-HANDLE, 
ontents, 

DE-RC 

ENT 


T + 10000) / 100 


ENTS-STRING TO P 
CENT (PC 











=~ 
im 
a 
fal 
uU 
fal 
u 
= 
G 
a 


Li 


ECT TO SAMPLE 
Do Not Modify. 

he following copy file in the DATA DIVISION: 
FFLST.CPY 

CURSTAFF CURSOR FOR 

T STAFF.ID, STAFF.JOB, STAFF.NAME, STAFF .SALARY 
STAFF 
E JOB 
R BY I 





QF wo 


D 


"Sales' 





fal 
uU 


Li 


CURSTAFF 


nal 
DU. 


Q 


EVER NOT FOUND 
OQ CLOSE-CURSTAFF 


nal 
DU. 








LOOP. 


CLOS 


FETC 


END 


END 


PERFORM FETCH-LOOP THRU END-FETCH-LOOP 
TIL SQLCODE NOT = 0. 


a 


E-CURSTAFF . 
EXEC SOL 
CLOS 
END-EX 


CURSTAFF 








= 
L 
a 
nal 
L 
BU 





EXEC SOL 
CONNECT RESET 
END-EXEC. 





GOBACK. 
H-LOOP SECTION. 


EXEC SOL 
FETCH CURSTAFF 

INTO :NUM, :0B, :NAME, :SALARY 
END-EXEC. 














IF SQLCODE NOT EQUAL 0 























GO TO TEST-FETCH-LOOP. 
OVE NUM TO W-NUM 
OVE NAME TO W-NAME 
OVE SALARY TO PSALARY 
OVE XSALARY TO W-SALARY 
OVE 0 TO NEW-SALARY 
COMPUTE NEW-SALARY = (SALARY * PCENT) / 100 
OVE NEW-SALARY TO PSALARY 
OVE XSALARY TO W-NEW-SALARY 
OVE 38 TO Item-Length 
OVE W-ITEM TO Item-String 














CALL "addItemEnd" USING LBX-SALARY-HANDLE, 








Item, 
VDE-RC 
GO TO TEST-FETCH-LOOP. 
-FETCH-LOOP. 
EXIT. 
PROGRAM "SALESDEP". 


Appendix E. Project Three: GUI Programming Using Data Assistant and DB2/2 
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Glossary 


The terms in this glossary are defined in accordance 
with their meaning in COBOL. These terms may or 
may not have the same meaning in other languages. 


IBM is grateful to the American National Standards 
Institute (ANSI) for permission to reprint its definitions 
from the following publications: 


+ American National Standard Programming 
Language COBOL, ANSI X3.23-1985 (Copyright 
1985 American National Standards Institute, Inc.), 
which was prepared by Technical Committee 
X3J4, which had the task of revising American 
National Standard COBOL, X3.23-1974. 


+ American National Dictionary for Information 
Processing Systems (Copyright 1982 by the 
Computer and Business Equipment Manufacturers 
Association). 


American National Standard definitions are preceded 
by an asterisk (*). 


A 


* abbreviated combined relation condition. The 
combined condition that results from the explicit 
omission of a common subject or a common subject 
and common relational operator in a consecutive 
sequence of relation conditions. 


abend. Abnormal termination of program. 


* access mode. The manner in which records are to 
be operated upon within a file. 


* actual decimal point. The physical representation, 
using the decimal point characters period (.) or 
comma (,), of the decimal point position in a data 
item. 


* alphabet-name. A user-defined word, in the 
SPECIAL-NAMES paragraph of the ENVIRONMENT 
DIVISION, that assigns a name to a specific character 
set and/or collating sequence. 


* alphabetic character. A letter or a space character. 


* alphanumeric character. Any character in the 
computer’s character set. 


alphanumeric-edited character. A character within an 
alphanumeric character-string that contains at least 
one B, 0 (zero), or / (slash). 


* alphanumeric function. A function whose value is 


composed of a string of one or more characters from 
the computer's character set. 


© Copyright IBM Corp. 1996 


* alternate record key. A key, other than the prime 
record key, whose contents identify a record within an 
indexed file. 


ANSI (American National Standards Institute). An 
organization consisting of producers, consumers, and 
general interest groups, that establishes the 
procedures by which accredited organizations create 
and maintain voluntary industry standards in the 
United States. 


* argument. An identifier, a literal, an arithmetic 
expression, or a function-identifier that specifies a 
value to be used in the evaluation of a function. 


* arithmetic expression. An identifier of a numeric 
elementary item, a numeric literal, such identifiers 
and literals separated by arithmetic operators, two 
arithmetic expressions separated by an arithmetic 
operator, or an arithmetic expression enclosed in 
parentheses. 


* arithmetic operation. The process caused by the 
execution of an arithmetic statement, or the 
evaluation of an arithmetic expression, that results in 
a mathematically correct solution to the arguments 
presented. 


* arithmetic operator. A single character, or a fixed 
two-character combination that belongs to the 
following set: 


Character Meaning 

+ addition 

= subtraction 

= multiplication 
/ division 

Be exponentiation 


* arithmetic statement. A statement that causes an 
arithmetic operation to be executed. The arithmetic 
statements are the ADD, COMPUTE, DIVIDE, 
MULTIPLY, and SUBTRACT statements. 


array. In &cel., an aggregate consisting of data 
objects, each of which may be uniquely referenced by 
subscripting. Roughly analogous to a COBOL table. 


* ascending key. A key upon the values of which 
data is ordered, starting with the lowest value of the 
key up to the highest value of the key, in accordance 
with the rules for comparing data items. 


ASCII. American National Standard Code for 
Information Interchange. The standard code, using a 
coded character set consisting of 7-bit coded 
characters (8 bits including parity check), used for 
information interchange between data processing 
systems, data communication systems, and 
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associated equipment. The ASCII set consists of 
control characters and graphic characters. 


Note: IBM has defined an extension to ASCII code 
(characters 128-255). 


assignment-name. A name that identifies the 
organization of a COBOL file and the name by which it 
is known to the system. 


* assumed decimal point. A decimal point position 
that does not involve the existence of an actual 
character in a data item. The assumed decimal point 
has logical meaning with no physical representation. 


* AT END condition. A condition caused: 


1. During the execution of a READ statement for a 
sequentially accessed file, when no next logical 
record exists in the file, or when the number of 
significant digits in the relative record number is 
larger than the size of the relative key data item, 
or when an optional input file is not present. 


2. During the execution of a RETURN statement, 
when no next logical record exists for the 
associated sort or merge file. 


3. During the execution of a SEARCH statement, 
when the search operation terminates without 
satisfying the condition specified in any of the 
associated WHEN phrases. 


B 


big-endian. Default format used by the mainframe 
and the AIX workstation to store binary data. In this 
format, the least significant digit is on the highest 
address. Compare with “little-endian.” 


binary item. A numeric data item represented in 
binary notation (on the base 2 numbering system). 
Binary items have a decimal equivalent consisting of 
the decimal digits 0 through 9, plus an operational 
sign. The leftmost bit of the item is the operational 
sign. 


binary search. A dichotomizing search in which, at 
each step of the search, the set of data elements is 
divided by two; some appropriate action is taken in 
the case of an odd number. 


* block. A physical unit of data that is normally 
composed of one or more logical records. For mass 
storage files, a block may contain a portion of a 
logical record. The size of a block has no direct 
relationship to the size of the file within which the 
block is contained or to the size of the logical 
record(s) that are either contained within the block or 
that overlap the block. The term is synonymous with 
physical record. 


breakpoint. A place in a computer program, usually 
specified by an instruction, where its execution may 


104  VisualAge for COBOL Primer 


be interrupted by external intervention or by a 
monitor program. 


Btrieve. A key-indexed record management system 
that allows applications to manage records by key 
value, sequential access method, or random access 
method. IBM COBOL supports COBOL sequential and 
indexed file |-O language through Btrieve. 


buffer. A portion of storage used to hold input or 
output data temporarily. 


built-in function. See “intrinsic function”. 


byte. A string consisting of a certain number of bits, 
usually eight, treated as a unit, and representing a 
character. 


C 


callable services. In &cel., a set of services that can 
be invoked by a COBOL program using the 
conventional &cel.-defined call interface, and usable 
by all programs sharing the &cel. conventions. 


called program. A program that is the object of a 
CALL statement. 


* calling program. A program that executes a CALL 
to another program. 


case structure. A program processing logic in which 
a series of conditions is tested in order to make a 
choice between a number of resulting actions. 


cataloged procedure. A set of job control statements 
placed in a partitioned data set called the procedure 
library (SYS1.PROCLIB). You can use cataloged 
procedures to save time and reduce errors coding 
JCL. 


century window. The 100-year interval in which 
Language Environment assumes all 2-digit years lie. 
The Language Environment default century window 
begins 80 years before the system date. 


* character. The basic indivisible unit of the 
language. 


character position. The amount of physical storage 
required to store a single standard data format 
character described as USAGE IS DISPLAY. 


character set. All the valid characters for a 
programming language or a computer system. 


* character-string. A sequence of contiguous 
characters that form a COBOL word, a literal, a 
PICTURE character-string, or a comment-entry. Must 
be delimited by separators. 


checkpoint. A point at which information about the 
status of a job and the system can be recorded so 
that the job step can be later restarted. 


* class. The entity that defines common behavior and 
implementation for zero, one, or more objects. The 
objects that share the same implementation are 
considered to be objects of the same class. 


* class condition. The proposition, for which a truth 
value can be determined, that the content of an item 
is wholly alphabetic, is wholly numeric, or consists 
exclusively of those characters listed in the definition 
of a class-name. 


* Class Definition. The COBOL source unit that 
defines a class. 


* class identification entry. An entry in the CLASS-ID 
paragraph of the IDENTIFICATION DIVISION which 
contains clauses that specify the class-name and 
assign selected attributes to the class definition. 


*class-name. A user-defined word defined in the 
SPECIAL-NAMES paragraph of the ENVIRONMENT 
DIVISION that assigns a name to the proposition for 
which a truth value can be defined, that the content of 
a data item consists exclusively of those characters 
listed in the definition of the class-name. 


class object. The run-time object representing a SOM 
class. 


*clause. An ordered set of consecutive COBOL 
character-strings whose purpose is to specify an 
attribute of an entry. 


CMS (Conversational Monitor System). A virtual 
machine operating system that provides general 
interactive, time-sharing, problem solving, and 
program development capabilities, and that operates 
only under the control of the VM/SP control program. 


* COBOL character set. The complete COBOL 
character set consists of the characters listed below: 


Character Meaning 
0,1...,9 digit 
A,B,...,Z uppercase letter 
a,b,...,Z lowercase letter 
; space 
+ plus sign 
= minus sign (hyphen) 
. asterisk 
/ slant (virgule, slash) 
= equal sign 
$ currency sign 
; comma (decimal point) 
; semicolon 
period (decimal point, full stop) 
: quotation mark 
( left parenthesis 


— 


right parenthesis 


> greater than symbol 
< less than symbol 
: colon 


* COBOL word. See “word.” 


code page. An assignment of graphic characters and 
control function meanings to all code points; for 
example, assignment of characters and meanings to 
256 code points for 8-bit code, assignment of 
characters and meanings to 128 code points for 7-bit 
code. 


* collating sequence. The sequence in which the 
characters that are acceptable to a computer are 
ordered for purposes of sorting, merging, comparing, 
and for processing indexed files sequentially. 


*column. A character position within a print line. 

The columns are numbered from 1, by 1, starting at 
the leftmost character position of the print line and 
extending to the rightmost position of the print line. 


* combined condition. A condition that is the result of 
connecting two or more conditions with the AND or 
the OR logical operator. 


*comment-entry. An entry in the IDENTIFICATION 
DIVISION that may be any combination of characters 
from the computer’s character set. 


*comment line. A source program line represented 
by an asterisk (*) in the indicator area of the line and 
any characters from the computer’s character set in 
area A and area B of that line. The comment line 
serves only for documentation in a program. A 
special form of comment line represented by a slant 
(/) in the indicator area of the line and any characters 
from the computer’s character set in area A and area 
B of that line causes page ejection prior to printing 
the comment. 


*common program. A program which, despite being 
directly contained within another program, may be 
called from any program directly or indirectly 
contained in that other program. 


*compile. (1) To translate a program expressed ina 
high-level language into a program expressed in an 
intermediate language, assembly language, or a 
computer language. (2) To prepare a machine 
language program from a computer program written 
in another programming language by making use of 
the overall logic structure of the program, or 
generating more than one computer instruction for 
each symbolic statement, or both, as well as 
performing the function of an assembler. 


*compile time. The time at which a COBOL source 


program is translated, by a COBOL compiler, to a 
COBOL object program. 
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compiler. A program that translates a program 
written in a higher level language into a machine 
language object program. 


compiler directing statement. A statement, beginning 
with a compiler directing verb, that causes the 
compiler to take a specific action during compilation. 


compiler directing statement. A statement that 
specifies actions to be taken by the compiler during 
processing of a COBOL source program. Compiler 
directives are contained in the COBOL source 
program. Thus, you can specify different suboptions 
of the directive within the source program by using 
multiple compiler directive statements in the 
program. 


* complex condition. A condition in which one or 
more logical operators act upon one or more 
conditions. (See also “negated simple condition,” 
“combined condition,” and “negated combined 
condition.”) 


*computer-name. A system-name that identifies the 
computer upon which the program is to be compiled 
or run. 


condition. An exception that has been enabled, or 
recognized, by &cel. and thus is eligible to activate 
user and language condition handlers. Any alteration 
to the normal programmed flow of an application. 
Conditions can be detected by the hardware/operating 
system and results in an interrupt. They can also be 
detected by language-specific generated code or 
language library code. 


* condition. A status of a program at run time for 
which a truth value can be determined. Where the 
term ‘condition’ (condition-1, condition-2,...) appears 
in these language specifications in or in reference to 
‘condition’ (condition-1, condition-2,...) of a general 
format, it is a conditional expression consisting of 
either a simple condition optionally parenthesized, or 
a combined condition consisting of the syntactically 
correct combination of simple conditions, logical 
operators, and parentheses, for which a truth value 
can be determined. 


* conditional expression. A simple condition or a 
complex condition specified in an EVALUATE, IF, 
PERFORM, or SEARCH statement. (See also “simple 
condition” and “complex condition.”) 


* conditional phrase. A conditional phrase specifies 
the action to be taken upon determination of the truth 
value of a condition resulting from the execution of a 
conditional statement. 


* conditional statement. A statement specifying that 
the truth value of a condition is to be determined and 
that the subsequent action of the object program is 
dependent on this truth value. 
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* conditional variable. A data item one or more 
values of which has a condition-name assigned to it. 


* condition-name. A user-defined word that assigns a 
name to a subset of values that a conditional variable 
may assume; or a user-defined word assigned to a 
status of an implementor defined switch or device. 
When ‘condition-name’ is used in the general formats, 
it represents a unique data item reference consisting 
of a syntactically correct combination of a 
‘condition-name’, together with qualifiers and 
subscripts, as required for uniqueness of reference. 


* condition-name condition. The proposition, for 
which a truth value can be determined, that the value 
of a conditional variable is a member of the set of 
values attributed to a condition-name associated with 
the conditional variable. 


* CONFIGURATION SECTION. A section of the 
ENVIRONMENT DIVISION that describes overall 
specifications of source and object programs and 
class definitions. 


CONSOLE. A COBOL environment-name associated 
with the operator console. 


* contiguous items. Items that are described by 
consecutive entries in the Data Division, and that 
bear a definite hierarchic relationship to each other. 


CORBA. The Common Object Request Broker 
Architecture established by the Object Management 
Group. IBM's Interface Definition Language used to 
describe the interface for SOM classes is fully 
compliant with CORBA standards. 


* counter. A data item used for storing numbers or 
number representations in a manner that permits 
these numbers to be increased or decreased by the 
value of another number, or to be changed or reset to 
zero or to an arbitrary positive or negative value. 


cross-reference listing. The portion of the compiler 
listing that contains information on where files, fields, 
and indicators are defined, referenced, and modified 
in a program. 


currency sign. The character ‘$’ of the COBOL 
character set or that character defined by the 
CURRENCY compiler option. If the NOCURRENCY 
compiler option is in effect, the currency sign is 
defined as the character ‘$’. 


currency symbol. The character defined by the 
CURRENCY compiler option or by the CURRENCY 
SIGN clause in the SPECIAL-NAMES paragraph. If the 
NOCURRENCY compiler option is in effect for a 
COBOL source program and the CURRENCY SIGN 
clause is also not present in the source program, the 
currency symbol is identical to the currency sign. 


* current record. In file processing, the record that is 
available in the record area associated with a file. 


* current volume pointer. A conceptual entity that 
points to the current volume of a sequential file. 


D 


* data clause. A clause, appearing in a data 
description entry in the DATA DIVISION of a COBOL 
program, that provides information describing a 
particular attribute of a data item. 


* data description entry . An entry in the DATA 
DIVISION of a COBOL program that is composed of a 
level-number followed by a data-name, if required, 
and then followed by a set of data clauses, as 
required. 


DATA DIVISION. One of the four main components of 
a COBOL program, class definition, or method 
definition. The DATA DIVISION describes the data to 
be processed by the object program, class, or 
method: files to be used and the records contained 
within them; internal working-storage records that will 
be needed; data to be made available in more than 
one program in the COBOL run unit. (Note, the Class 
DATA DIVISION contains only the 
WORKING-STORAGE SECTION.) 


* data item. A unit of data (excluding literals) defined 
by a COBOL program or by the rules for function 
evaluation. 


*data-name. A user-defined word that names a data 
item described in a data description entry. When 
used in the general formats, ‘data-name’ represents a 
word that must not be reference-modified, subscripted 
or qualified unless specifically permitted by the rules 
for the format. 


DBCS (Double-Byte Character Set). See 
“Double-Byte Character Set (DBCS).” 


* debugging line. A debugging line is any line with a 
‘D’ in the indicator area of the line. 


* debugging section. A section that contains a USE 
FOR DEBUGGING statement. 


* declarative sentence. A compiler directing sentence 
consisting of a single USE statement terminated by 
the separator period. 


* declaratives. A set of one or more special purpose 
sections, written at the beginning of the Procedure 
Division, the first of which is preceded by the key 
word DECLARATIVES and the last of which is followed 
by the key words END DECLARATIVES. A declarative 
is composed of a section header, followed by a USE 
compiler directing sentence, followed by a set of zero, 
one, or more associated paragraphs. 


* de-edit. The logical removal of all editing 
characters from a numeric edited data item in order 
to determine that item's unedited numeric value. 


* delimited scope statement. Any statement that 
includes its explicit scope terminator. 


* delimiter. A character or a sequence of contiguous 
characters that identify the end of a string of 
characters and separate that string of characters from 
the following string of characters. A delimiter is not 
part of the string of characters that it delimits. 


* descending key. A key upon the values of which 
data is ordered starting with the highest value of key 
down to the lowest value of key, in accordance with 
the rules for comparing data items. 


digit. Any of the numerals from 0 through 9. In 
COBOL, the term is not used in reference to any other 
symbol. 


* digit position. The amount of physical storage 
required to store a single digit. This amount may 
vary depending on the usage specified in the data 
description entry that defines the data item. 


* direct access. The facility to obtain data from 
storage devices or to enter data into a storage device 
in such a way that the process depends only on the 
location of that data and not on a reference to data 
previously accessed. 


* division. A collection of zero, one or more sections 
or paragraphs, called the division body, that are 
formed and combined in accordance with a specific 
set of rules. Each division consists of the division 
header and the related division body. There are four 
(4) divisions in a COBOL program: Identification, 
Environment, Data, and Procedure. 


* division header. A combination of words followed 
by a separator period that indicates the beginning of 
a division. The division headers are: 


IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 


do construction. In structured programming, a DO 
statement is used to group a number of statements in 
a procedure. In COBOL, an in-line PERFORM 
statement functions in the same way. 


do-until. In structured programming, a do-until loop 
will be executed at least once, and until a given 
condition is true. In COBOL, a TEST AFTER phrase 
used with the PERFORM statement functions in the 
same way. 


do-while. In structured programming, a do-while loop 
will be executed if, and while, a given condition is 
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true. In COBOL, a TEST BEFORE phrase used with 
the PERFORM statement functions in the same way. 


Double-Byte Character Set (DBCS). A set of 
characters in which each character is represented by 
two bytes. Languages such as Japanese, Chinese, 
and Korean, which contain more symbols than can be 
represented by 256 code points, require Double-Byte 
Character Sets. Because each character requires two 
bytes, entering, displaying, and printing DBCS 
characters requires hardware and supporting software 
that are DBCS-capable. 


* dynamic access. An access mode in which specific 
logical records can be obtained from or placed into a 
mass storage file in a nonsequential manner and 
obtained from a file in a sequential manner during the 
scope of the same OPEN statement. 


Dynamic Storage Area (DSA). Dynamically acquired 
storage composed of a register save area and an 
area available for dynamic storage allocation (such as 
program variables). DSAs are generally allocated 
within STACK segments managed by &cel.. 


E 


* EBCDIC (Extended Binary-Coded Decimal 
Interchange Code). A coded character set consisting 
of 8-bit coded characters. 


EBCDIC character. Any one of the symbols included 
in the 8-bit EBCDIC (Extended Binary-Coded-Decimal 
Interchange Code) set. 


edited data item. A data item that has been modified 
by suppressing zeroes and/or inserting editing 
characters. 


* editing character. A single character or a fixed 
two-character combination belonging to the following 
set: 


Character Meaning 
F space 
0 zero 
+ plus 
- minus 
CR credit 
DB debit 
Z zero suppress 
# check protect 
$ currency sign 
; comma (decimal point) 
: period (decimal point) 
/ slant (virgule, slash) 


element (text element). One logical unit of a string of 
text, such as the description of a single data item or 
verb, preceded by a unique code identifying the 
element type. 
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* elementary item. A data item that is described as 
not being further logically subdivided. 


enclave. When running under the &cel. product, an 
enclave is analogous to a run unit. An enclave can 
create other enclaves on MVS and CMS by a LINK, on 
CMS by CMSCALL, and the use of the system () 
function of C. 


*end class header. A combination of words, followed 
by a separator period, that indicates the end of a 
COBOL class definition. The end class header is: 


END CLASS class-name. 


*end method header. A combination of words, 
followed by a separator period, that indicates the end 
of a COBOL method definition. The end method 
header is: 


END METHOD method-name. 


* end of Procedure Division. The physical position of 
a COBOL source program after which no further 
procedures appear. 


* end program header. A combination of words, 
followed by a separator period, that indicates the end 
of a COBOL source program. The end program 
header is: 


END PROGRAM program-name. 


*entry. Any descriptive set of consecutive clauses 
terminated by a separator period and written in the 
IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, 
or DATA DIVISION of a COBOL program. 


* environment clause. A clause that appears as part 
of an ENVIRONMENT DIVISION entry. 


ENVIRONMENT DIVISION. One of the four main 
component parts of a COBOL program, class 
definition, or method definition. The ENVIRONMENT 
DIVISION describes the computers upon which the 
source program is compiled and those on which the 
object program is executed, and provides a linkage 
between the logical concept of files and their records, 
and the physical aspects of the devices on which files 
are stored. 


environment-name. A name, specified by IBM, that 
identifies system logical units, printer and card punch 
control characters, report codes, and/or program 
switches. When an environment-name is associated 
with a mnemonic-name in the ENVIRONMENT 
DIVISION, the mnemonic-name may then be 
substituted in any format in which such substitution is 
valid. 


environment variable. Any of a number of variables 
that describe the way an operating system is going to 
run and the devices it is going to recognize. 


execution time. See “run time.” 


execution-time environment. See “run-time 
environment.” 


* explicit scope terminator. A reserved word that 
terminates the scope of a particular Procedure 
Division statement. 


exponent. A number, indicating the power to which 
another number (the base) is to be raised. Positive 
exponents denote multiplication, negative exponents 
denote division, fractional exponents denote a root of 
a quantity. In COBOL, an exponential expression is 
indicated with the symbol ‘**’ followed by the 
exponent. 


* expression. An arithmetic or conditional 
expression. 


* extend mode. The state of a file after execution of 
an OPEN statement, with the EXTEND phrase specified 
for that file, and before the execution of a CLOSE 
statement, without the REEL or UNIT phrase for that 
file. 


extensions. Certain COBOL syntax and semantics 
supported by IBM compilers in addition to those 
described in ANSI Standard. 


* external data. The data described in a program as 
external data items and external file connectors. 


* external data item. A data item which is described 
as part of an external record in one or more 
programs of arun unit and which itself may be 
referenced from any program in which it is described. 


* external data record. A logical record which is 
described in one or more programs of a run unit and 
whose constituent data items may be referenced from 
any program in which they are described. 


external decimal item. A format for representing 
numbers in which the digit is contained in bits 4 
through 7 and the sign is contained in bits 0 through 3 
of the rightmost byte. Bits 0 through 3 of all other 
bytes contain 1’s (hex F). For example, the decimal 
value of +123 is represented as 1111 0001 1111 0010 
1111 0011. (Also know as “zoned decimal item.”) 


* external file connector. A file connector which is 
accessible to one or more object programs in the run 
unit. 


external floating-point item. A format for 
representing numbers in which a real number is 
represented by a pair of distinct numerals. Ina 
floating-point representation, the real number is the 
product of the fixed-point part (the first numeral), and 
a value obtained by raising the implicit floating-point 
base to a power denoted by the exponent (the second 
numeral). 


For example, a floating-point representation of the 
number 0.0001234 is: 0.1234 -3, where 0.1234 is the 
mantissa and -3 is the exponent. 


* external switch. A hardware or software device, 
defined and named by the implementor, which is used 
to indicate that one of two alternate states exists. 


F 


* figurative constant. A compiler-generated value 
referenced through the use of certain reserved words. 


* file. A collection of logical records. 


* file attribute conflict condition. An unsuccessful 
attempt has been made to execute an input-output 
operation on a file and the file attributes, as specified 
for that file in the program, do not match the fixed 
attributes for that file. 


* file clause. A clause that appears as part of any of 
the following DATA DIVISION entries: file description 
entry (FD entry) and sort-merge file description entry 
(SD entry). 


* file connector. A storage area which contains 
information about a file and is used as the linkage 
between a file-name and a physical file and between 
a file-name and its associated record area. 


File-Control. The name of an ENVIRONMENT 
DIVISION paragraph in which the data files for a given 
source program are declared. 


* file control entry. A SELECT clause and all its 
subordinate clauses which declare the relevant 
physical attributes of a file. 


* file description entry. An entry in the File Section 
of the DATA DIVISION that is composed of the level 
indicator FD, followed by a file-name, and then 
followed by a set of file clauses as required. 


* file-name. A user-defined word that names a file 
connector described in a file description entry or a 
sort-merge file description entry within the File 
Section of the DATA DIVISION. 


* file organization. The permanent logical file 
structure established at the time that a file is created. 


“file position indicator. A conceptual entity that 
contains the value of the current key within the key of 
reference for an indexed file, or the record number of 
the current record for a sequential file, or the relative 
record number of the current record for a relative file, 
or indicates that no next logical record exists, or that 
an optional input file is not present, or that the at end 
condition already exists, or that no valid next record 
has been established. 


Glossary 109 


* File Section. The section of the DATA DIVISION 
that contains file description entries and sort-merge 
file description entries together with their associated 
record descriptions. 


file system. The collection of files and file 
management structures on a physical or logical mass 
storage device, such as a diskette or minidisk. 


* fixed file attributes. Information about a file which 
is established when a file is created and cannot 
subsequently be changed during the existence of the 
file. These attributes include the organization of the 
file (Sequential, relative, or indexed), the prime record 
key, the alternate record keys, the code set, the 
minimum and maximum record size, the record type 
(fixed or variable), the collating sequence of the keys 
for indexed files, the blocking factor, the padding 
character, and the record delimiter. 


* fixed length record. A record associated with a file 
whose file description or sort-merge description entry 
requires that all records contain the same number of 
character positions. 


fixed-point number. A numeric data item defined 
with a PICTURE clause that specifies the location of 
an optional sign, the number of digits it contains, and 
the location of an optional decimal point. The format 
may be either binary, packed decimal, or external 
decimal. 


floating-point number. A numeric data item 
containing a fraction and an exponent. Its value is 
obtained by multiplying the fraction by the base of the 
numeric data item raised to the power specified by 
the exponent. 


*format. A specific arrangement of a set of data. 


* function. A temporary data item whose value is 
determined at the time the function is referenced 
during the execution of a statement. 


* function-identifier. A syntactically correct 
combination of character-strings and separators that 
references a function. The data item represented by 
a function is uniquely identified by a function-name 
with its arguments, if any. A function-identifier may 
include a reference-modifier. A function-identifier that 
references an alphanumeric function may be specified 
anywhere in the general formats that an identifier 
may be specified, subject to certain restrictions. A 
function-identifier that references an integer or 
numeric function may be referenced anywhere in the 
general formats that an arithmetic expression may be 
specified. 


function-name. A word that names the mechanism 


whose invocation, along with required arguments, 
determines the value of a function. 
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G 


* global name. A name which is declared in only one 
program but which may be referenced from that 
program and from any program contained within that 
program. Condition-names, data-names, file-names, 
record-names, report-names, and some special 
registers may be global names. 


* group item. A data item that is composed of 
subordinate data items. 


H 


header label. (1) A file label or data set label that 
precedes the data records on a unit of recording 
media. (2) Synonym for beginning-of-file label. 


* high order end. The leftmost character of a string 
of characters. 


IBM COBOL extension. Certain COBOL syntax and 
semantics supported by IBM compilers in addition to 
those described in ANSI Standard. 


IDENTIFICATION DIVISION. One of the four main 
component parts of a COBOL program, class 
definition, or method definition. The IDENTIFICATION 
DIVISION identifies the program name, class name, or 
method name. The IDENTIFICATION DIVISION may 
include the following documentation: author name, 
installation, or date. 


* identifier. A syntactically correct combination of 
character-strings and separators that names a data 
item. When referencing a data item that is nota 
function, an identifier consists of a data-name, 
together with its qualifiers, subscripts, and 
reference-modifier, as required for uniqueness of 
reference. When referencing a data item which is a 
function, a function-identifier is used. 


IGZCBSN. The &cobol. bootstrap routine. It must be 
link-edited with any module that contains a &cobol. 
program. 


* imperative statement. A statement that either 
begins with an imperative verb and specifies an 
unconditional action to be taken or is a conditional 
statement that is delimited by its explicit scope 
terminator (delimited scope statement). An 
imperative statement may consist of a sequence of 
imperative statements. 


* implicit scope terminator. A separator period which 
terminates the scope of any preceding unterminated 
statement, or a phrase of a statement which by its 
occurrence indicates the end of the scope of any 
statement contained within the preceding phrase. 


* index. A computer storage area or register, the 
content of which represents the identification of a 
particular element in a table. 


* index data item. A data item in which the values 
associated with an index-name can be stored ina 
form specified by the implementor. 


indexed data-name. An identifier that is composed of 
a data-name, followed by one or more index-names 
enclosed in parentheses. 


* indexed file. A file with indexed organization. 


* indexed organization. The permanent logical file 
structure in which each record is identified by the 
value of one or more keys within that record. 


indexing. Synonymous with subscripting using 
index-names. 


* index-name. A user-defined word that names an 
index associated with a specific table. 


* inheritance (for classes). A mechanism for using 
the implementation of one or more classes as the 
basis for another class. A sub-class inherits from one 
or more super-classes. By definition the inheriting 
class conforms to the inherited classes. 


* initial program. A program that is placed into an 
initial state every time the program is called in a run 
unit. 


* initial state. The state of a program when it is first 
called in a run unit. 


inline. In a program, instructions that are executed 
sequentially, without branching to routines, 
subroutines, or other programs. 


* input file. A file that is opened in the INPUT mode. 


* input mode. The state of a file after execution of an 
OPEN statement, with the INPUT phrase specified, for 
that file and before the execution of a CLOSE 
statement, without the REEL or UNIT phrase for that 
file. 


* input-output file. A file that is opened in the |-O 
mode. 


* INPUT-OUTPUT SECTION. The section of the 
ENVIRONMENT DIVISION that names the files and the 
external media required by an object program or 
method and that provides information required for 
transmission and handling of data during execution of 
the object program or method definition. 


* Input-Output statement. A statement that causes 
files to be processed by performing operations upon 
individual records or upon the file as a unit. The 
input-output statements are: ACCEPT (with the 


identifier phrase), CLOSE, DELETE, DISPLAY, OPEN, 
READ, REWRITE, SET (with the TO ON or TO OFF 
phrase), START, and WRITE. 


* input procedure. A set of statements, to which 
control is given during the execution of a SORT 
statement, for the purpose of controlling the release 
of specified records to be sorted. 


instance data. Data defining the state of an object. 
The instance data introduced by a class is defined in 
the WORKING-STORAGE SECTION of the DATA 
DIVISION of the class definition. The state of an 
object also includes the state of the instance 
variables introduced by base classes that are 
inherited by the current class. A separate copy of the 
instance data is created for each object instance. 


* integer. (1) A numeric literal that does not include 
any digit positions to the right of the decimal point. 


(2) A numeric data item defined in the DATA DIVISION 
that does not include any digit positions to the right of 
the decimal point. 


(3) A numeric function whose definition provides that 
all digits to the right of the decimal point are zero in 
the returned value for any possible evaluation of the 
function. 


integer function. A function whose category is 
numeric and whose definition does not include any 
digit positions to the right of the decimal point. 


interface. The information that a client must know to 
use a class—the names of its attributes and the 
signatures of its methods. With direct-to-SOM 
compilers such as COBOL, the interface to a class 
may be defined by native language syntax for class 
definitions. Classes implemented in other languages 
might have their interfaces defined directly in SOM 
Interface Definition Language (IDL). The COBOL 
compiler has a compiler option, IDLGEN, to 
automatically generate IDL for a COBOL class. 


Interface Definition Language (IDL). The formal 
language (independent of any programming language) 
by which the interface for a class of objects is defined 
in a IDL file, which the SOM compiler then interprets 
to create an implementation template file and binding 
files. SOM's Interface Definition Language is fully 
compliant with standards established by the Object 
Management Group's Common Object Request Broker 
Architecture (CORBA). 


interlanguage communication (ILC). The ability of 
routines written in different programming languages 
to communicate. ILC support allows the application 
writer to readily build applications from component 
routines written in a variety of languages. 


intermediate result. An intermediate field containing 
the results of a succession of arithmetic operations. 
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* internal data. The data described in a program 
excluding all external data items and external file 
connectors. Items described in the LINKAGE 
SECTION of a program are treated as internal data. 


* internal data item. A data item which is described 
in one program in a run unit. An internal data item 
may have a global name. 


internal decimal item. A format in which each byte in 
a field except the rightmost byte represents two 
numeric digits. The rightmost byte contains one digit 
and the sign. For example, the decimal value +123 
is represented as 0001 0010 0011 1111. (Also known 
as packed decimal.) 


* internal file connector. A file connector which is 


accessible to only one object program in the run unit. 


* intra-record data structure. The entire collection of 
groups and elementary data items from a logical 
record which is defined by a contiguous subset of the 
data description entries which describe that record. 
These data description entries include all entries 
whose level-number is greater than the level-number 
of the first data description entry describing the 
intra-record data structure. 


intrinsic function. A pre-defined function, such as a 
commonly used arithmetic function, called by a 
built-in function reference. 


* invalid key condition. A condition, at object time, 
caused when a specific value of the key associated 
with an indexed or relative file is determined to be 
invalid. 


*|-O-CONTROL. The name of an ENVIRONMENT 
DIVISION paragraph in which object program 
requirements for rerun points, sharing of same areas 
by several data files, and multiple file storage ona 
single input-output device are specified. 


* |-O-CONTROL entry. An entry in the l-O-CONTROL 
paragraph of the ENVIRONMENT DIVISION which 
contains clauses that provide information required for 
the transmission and handling of data on named files 
during the execution of a program. 


* 1-O-Mode. The state of a file after execution of an 
OPEN statement, with the I-O phrase specified, for 
that file and before the execution of a CLOSE 
statement without the REEL or UNIT phase for that 
file. 


*1-O status. A conceptual entity which contains the 
two-character value indicating the resulting status of 
an input-output operation. This value is made 
available to the program through the use of the FILE 
STATUS clause in the file control entry for the file. 
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iteration structure. A program processing logic in 
which a series of statements is repeated while a 
condition is true or until a condition is true. 


K 


K. When referring to storage capacity, two to the 
tenth power; 1024 in decimal notation. 


*key. A data item that identifies the location of a 
record, or a set of data items which serve to identify 
the ordering of data. 


* key of reference. The key, either prime or 
alternate, currently being used to access records 
within an indexed file. 


* key word. A reserved word or function-name 
whose presence is required when the format in which 
the word appears is used in a source program. 


kilobyte (KB). One kilobyte equals 1024 bytes. 


L 


* language-name. A system-name that specifies a 
particular programming language. 


Language Environment-conforming. A characteristic 
of compiler products (&cobol370., &cobol., AD/Cycle 
C/370, C/C++ for MVS and VM, PL/I for MVS and 
VM) that produce object code conforming to the 
Language Environment format. 


last-used state. A program is in last-used state if its 
internal values remain the same as when the program 
was exited (are not reset to their initial values). 


* letter. A character belonging to one of the following 
two sets: 


1. Uppercase letters: A, B, C, D, E, F, G, H, I, J, K, L, 
M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z 
b, 


2. Lowercase letters: a, b, c, d, e, f, g, h, i, j, k, |, m, 
n, 0, p,q, r, S, t, U,V, W, X, y, Z 


* level indicator. Two alphabetic characters that 
identify a specific type of file or a position ina 
hierarchy. The level indicators in the DATA DIVISION 
are: CD, FD, and SD. 


* level-number. A user-defined word, expressed as a 
two digit number, which indicates the hierarchical 
position of a data item or the special properties of a 
data description entry. Level-numbers in the range 
from 1 through 49 indicate the position of a data item 
in the hierarchical structure of a logical record. 
Level-numbers in the range 1 through 9 may be 
written either as a single digit or as a zero followed 
by a significant digit. Level-numbers 66, 77 and 88 
identify special properties of a data description entry. 


* library-name. A user-defined word that names a 
COBOL library that is to be used by the compiler for a 
given source program compilation. 


* library text. A sequence of text words, comment 
lines, the separator space, or the separator 
pseudo-text delimiter in a COBOL library. 


LILIAN DATE. The number of days since the 
beginning of the Gregorian calendar. Day one is 
Friday, October 15, 1582. The Lilian date format is 
named in honor of Luigi Lilio, the creator of the 
Gregorian calendar. 


* LINAGE-COUNTER. A special register whose value 
points to the current position within the page body. 


LINKAGE SECTION. The section in the DATA 
DIVISION of the called program that describes data 
items available from the calling program. These data 
items may be referred to by both the calling and 
called program. 


literal. A character-string whose value is specified 
either by the ordered set of characters comprising the 
string, or by the use of a figurative constant. 


local. A set of attributes for a program execution 
environment indicating culturally sensitive 
considerations, such as: character code page, 
collating sequence, date/time format, monetary value 
representation, numeric value representation, or 
language. 


* LOCAL-STORAGE SECTION. The section of the 
DATA DIVISION that defines storage that is allocated 
and freed on a per-invocation basis, depending on the 
value assigned in their VALUE clauses. 


* logical operator. One of the reserved words AND, 
OR, or NOT. In the formation of a condition, either 
AND, or OR, or both can be used as logical 
connectives. NOT can be used for logical negation. 


* logical record. The most inclusive data item. The 
level-number for a record is 01. A record may be 
either an elementary item or a group of items. The 
term is synonymous with record. 


* low order end. The rightmost character of a string 
of characters. 


main program. Ina hierarchy of programs and 
subroutines, the first program to receive control when 
the programs are run. 


* mass storage. A storage medium in which data 
may be organized and maintained in both a 
sequential and nonsequential manner. 


* mass storage device. A device having a large 
storage capacity; for example, magnetic disk, 
magnetic drum. 


* mass storage file. A collection of records that is 
assigned to a mass storage medium. 


* megabyte (M). One megabyte equals 1,048,576 
bytes. 


* merge file. A collection of records to be merged by 
a MERGE statement. The merge file is created and 
can be used only by the merge function. 


metaclass. A SOM class whose instances are SOM 
class-objects. The methods defined in metaclasses 
are executed without requiring any object instances of 
the class to exist, and are frequently used to create 
instances of the class. 


method. Procedural code that defines one of the 
operations supported by an object, and that is 
executed by an INVOKE statement on that object. 


* Method Definition. The COBOL source unit that 
defines a method. 


* method identification entry. An entry in the 
METHOD-ID paragraph of the IDENTIFICATION 
DIVISION which contains clauses that specify the 
method-name and assign selected attributes to the 
method definition. 


* method-name. A user-defined word that identifies a 
method. 


* mnemonic-name. A user-defined word that is 
associated in the ENVIRONMENT DIVISION with a 
specified implementor-name. 


multitasking. Mode of operation that provides for the 
concurrent, or interleaved, execution of two or more 
tasks. When running under the &cel. product, 
multitasking is synonymous with multithreading. 


MVS/XA* (Multiple Virtual Storage/Extended 
Architecture). An IBM operating system that 
manages multiple virtual address spaces in IBM 
processors operating in extended architecture mode. 
MVS/XA supports the 31-bit addressing mechanism of 
extended architecture mode, and therefore, allows an 
address space as large as 231 bytes (2048 megabytes 
or 2 gigabytes). 


N 


name. A word composed of not more than 30 
characters that defines a COBOL operand. 


* native character set. The implementor-defined 


character set associated with the computer specified 
in the OBJECT-COMPUTER paragraph. 
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* native collating sequence. The implementor-defined 
collating sequence associated with the computer 
specified in the OBJECT-COMPUTER paragraph. 


* negated combined condition. The ‘NOT’ logical 
operator immediately followed by a parenthesized 
combined condition. 


* negated simple condition. The ‘NOT’ logical 
operator immediately followed by a simple condition. 


nested program. A program that is directly contained 
within another program. 


* next executable sentence. The next sentence to 
which control will be transferred after execution of the 
current statement is complete. 


* next executable statement. The next statement to 
which control will be transferred after execution of the 
current statement is complete. 


* next record. The record that logically follows the 
current record of a file. 


* noncontiguous items. Elementary data items in the 
WORKING-STORAGE and LINKAGE SECTIONs that 
bear no hierarchic relationship to other data items. 


* nonnumeric item. A data item whose description 
permits its content to be composed of any 
combination of characters taken from the computer's 
character set. Certain categories of nonnumeric 
items may be formed from more restricted character 
sets. 


* nonnumeric literal. A literal bounded by quotation 
marks. The string of characters may include any 
character in the computer’s character set. 


null. Figurative constant used to assign the value of 
an invalid address to pointer data items. NULLS can 
be used wherever NULL can be used. 


* numeric character. A character that belongs to the 
following set of digits: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 


numeric-edited item. A numeric item that is in sucha 
form that it may be used in printed output. It may 
consist of external decimal digits from 0 through 9, 
the decimal point, commas, the dollar sign, editing 
sign control symbols, plus other editing symbols. 


* numeric function. A function whose class and 
category are numeric but which for some possible 
evaluation does not satisfy the requirements of 
integer functions. 


* numeric item. A data item whose description 
restricts its content to a value represented by 
characters chosen from the digits from ‘0’ through ‘9’; 
if signed, the item may also contain a ‘+’, ‘—’, or 
other representation of an operational sign. 
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* numeric literal. A literal composed of one or more 
numeric characters that may contain either a decimal 
point, or an algebraic sign, or both. The decimal point 
must not be the rightmost character. The algebraic 
sign, if present, must be the leftmost character. 


O 


object. An entity that has state (its data values) and 
operations (its methods). An object is a way to 
encapsulate state and behavior. 


object code. Output from a compiler or assembler 
that is itself executable machine code or is suitable 
for processing to produce executable machine code. 


* OBJECT-COMPUTER. The name of an 
ENVIRONMENT DIVISION paragraph in which the 
computer environment, within which the object 
program is executed, is described. 


* object computer entry. An entry in the 
OBJECT-COMPUTER paragraph of the ENVIRONMENT 
DIVISION which contains clauses that describe the 
computer environment in which the object program is 
to be executed. 


object deck. A portion of an object program suitable 
as input to a linkage editor. Synonymous with object 
module and text deck. 


object module. Synonym for object deck or text deck. 


* object of entry. A set of operands and reserved 
words, within a DATA DIVISION entry of a COBOL 
program, that immediately follows the subject of the 
entry. 


* object program. A set or group of executable 
machine language instructions and other material 
designed to interact with data to provide problem 
solutions. In this context, an object program is 
generally the machine language result of the 
operation of a COBOL compiler on a source program. 
Where there is no danger of ambiguity, the word 
‘program’ alone may be used in place of the phrase 
‘object program.’ 


* object time. The time at which an object program is 
executed. The term is synonymous with execution 
time. 


* obsolete element. A COBOL language element in 
Standard COBOL that is to be deleted from the next 
revision of Standard COBOL. 


ODO object. In the example below, 


WORKING-STORAGE SECTION 

01 TABLE-1. 
05 X PICS): 
05 Y OCCURS 3 TIMES 


DEPENDING ON X PIC X; 


X is the object of the OCCURS DEPENDING ON clause 
(ODO object). The value of the ODO object 
determines how many of the ODO subject appear in 
the table. 


ODO subject. In the example above, Y is the subject 
of the OCCURS DEPENDING ON clause (ODO subject). 
The number of Y ODO subjects that appear in the 
table depends on the value of X. 


* open mode. The state of a file after execution of an 
OPEN statement for that file and before the execution 
of a CLOSE statement without the REEL or UNIT 
phrase for that file. The particular open mode is 
specified in the OPEN statement as either INPUT, 
OUTPUT, I-O or EXTEND. 


* operand. Whereas the general definition of operand 
is “that component which is operated upon,” for the 
purposes of this document, any lowercase word (or 
words) that appears in a statement or entry format 
may be considered to be an operand and, as such, is 
an implied reference to the data indicated by the 
operand. 


* operational sign. An algebraic sign, associated with 
a numeric data item or a numeric literal, to indicate 
whether its value is positive or negative. 


* optional file. A file which is declared as being not 
necessarily present each time the object program is 
executed. The object program causes an 

interrogation for the presence or absence of the file. 


* optional word. A reserved word that is included in 
a specific format only to improve the readability of 
the language and whose presence is optional to the 
user when the format in which the word appears is 
used in a source program. 


OS/2 (Operating System/2*). A multi-tasking 
operating system for the IBM Personal Computer 
family that allows you to run both DOS mode and 
OS/2 mode programs. 


* output file. A file that is opened in either the 
OUTPUT mode or EXTEND mode. 


* output mode. The state of a file after execution of 
an OPEN statement, with the OUTPUT or EXTEND 
phrase specified, for that file and before the execution 
of a CLOSE statement without the REEL or UNIT 
phrase for that file. 


* output procedure. A set of statements to which 
control is given during execution of a SORT statement 
after the sort function is completed, or during 
execution of a MERGE statement after the merge 
function reaches a point at which it can select the 
next record in merged order when requested. 


overflow condition. A condition that occurs when a 
portion of the result of an operation exceeds the 
capacity of the intended unit of storage. 


Pp 


packed decimal item. See “internal decimal item.” 


* padding character. An alphanumeric character used 
to fill the unused character positions in a physical 
record. 


page. A vertical division of output data representing 
a physical separation of such data, the separation 
being based on internal logical requirements and/or 
external characteristics of the output medium. 


* page body. That part of the logical page in which 
lines can be written and/or spaced. 


* paragraph. In the Procedure Division, a 
paragraph-name followed by a separator period and 
by zero, one, or more sentences. In the 
IDENTIFICATION and ENVIRONMENT DIVISIONSs, a 
paragraph header followed by zero, one, or more 
entries. 


* paragraph header. A reserved word, followed by 
the separator period, that indicates the beginning of a 
paragraph in the IDENTIFICATION and ENVIRONMENT 
DIVISIONs. The permissible paragraph headers in the 
IDENTIFICATION DIVISION are: 


PROGRAM-ID. (Program IDENTIFICATION DIVISION only) 
CLASS-ID. (Class IDENTIFICATION DIVISION only) 
METHOD-ID. (Method IDENTIFICATION DIVISION only) 
AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 


The permissible paragraph headers in the 
ENVIRONMENT DIVISION are: 


SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

REPOSITORY. (Program or Class CONFIGURATION SECTION only) 
FILE-CONTROL. 

I-O-CONTROL. 


* paragraph-name. A user-defined word that 
identifies and begins a paragraph in the Procedure 
Division. 

parameter. Parameters are used to pass data values 


between calling and called programs. 


password. A unique string of characters that a 
program, computer operator, or user must supply to 
meet security requirements before gaining access to 
data. 
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* phrase. A phrase is an ordered set of one or more 
consecutive COBOL character-strings that form a 
portion of a COBOL procedural statement or of a 
COBOL clause. 


* physical record. See “block.” 


pointer data item. A data item in which address 
values can be stored. Data items are explicitly 
defined as pointers with the USAGE IS POINTER 
clause. ADDRESS OF special registers are implicitly 
defined as pointer data items. Pointer data items can 
be compared for equality or moved to other pointer 
data items. 


portability. The ability to transfer an application 
program from one application platform to another 
with relatively few changes to the source program. 


preloaded. In COBOL this refers to COBOL programs 
that remain resident in storage under IMS instead of 
being loaded each time they are called. 


* prime record key. A key whose contents uniquely 
identify a record within an indexed file. 


* priority-number. A user-defined word which 
classifies sections in the Procedure Division for 
purposes of segmentation. Segment-numbers may 
contain only the characters '0','1', ...,'9'. A 
segment-number may be expressed either as a one- 
or two-digit number. 


* procedure. A paragraph or group of logically 
successive paragraphs, or a section or group of 
logically successive sections, within the Procedure 
Division. 


* procedure branching statement. A statement that 
causes the explicit transfer of control to a statement 
other than the next executable statement in the 
sequence in which the statements are written in the 
source program. The procedure branching 
statements are: ALTER, CALL, EXIT, EXIT PROGRAM, 
GO TO, MERGE, (with the OUTPUT PROCEDURE 
phrase), PERFORM and SORT (with the INPUT 
PROCEDURE or OUTPUT PROCEDURE phrase). 


Procedure Division. One of the four main component 
parts of a COBOL program, class definition, or method 
definition. The Procedure Division contains 
instructions for solving a problem. The Program and 
Method Procedure Divisions may contain imperative 
statements, conditional statements, compiler directing 
statements, paragraphs, procedures, and sections. 
The Class Procedure Division contains only method 
definitions. 


procedure integration. One of the functions of the 
COBOL optimizer is to simplify calls to performed 
procedures or contained programs. 


PERFORM procedure integration is the process 
whereby a PERFORM statement is replaced by its 
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performed procedures. Contained program procedure 
integration is the process where a CALL to a 
contained program is replaced by the program code. 


* procedure-name. A user-defined word that is used 
to name a paragraph or section in the Procedure 
Division. It consists of a paragraph-name (which may 
be qualified) or a section-name. 


procedure-pointer data item. A data item in whicha 
pointer to an entry point can be stored. A data item 
defined with the USAGE IS PROCEDURE-POINTER 
clause contains the address of a procedure entry 
point. 


* program identification entry. An entry in the 
PROGRAM-ID paragraph of the IDENTIFICATION 
DIVISION which contains clauses that specify the 
program-name and assign selected program 
attributes to the program. 


* program-name. In the IDENTIFICATION DIVISION 
and the end program header, a user-defined word 
that identifies a COBOL source program. 


* pseudo-text. A sequence of text words, comment 
lines, or the separator space in a source program or 
COBOL library bounded by, but not including, 
pseudo-text delimiters. 


* pseudo-text delimiter. Two contiguous equal sign 
characters (==) used to delimit pseudo-text. 


* punctuation character. A character that belongs to 
the following set: 


Character Meaning 

5 comma 

; semicolon 

: colon 

. period (full stop) 
iy quotation mark 

( left parenthesis 
) right parenthesis 
; space 

= equal sign 


QSAM (Queued Sequential Access Method). An 
extended version of the basic sequential access 
method (BSAM). When this method is used, a queue 
is formed of input data blocks that are awaiting 
processing or of output data blocks that have been 
processed and are awaiting transfer to auxiliary 
storage or to an output device. 


* qualified data-name. An identifier that is composed 
of a data-name followed by one or more sets of either 
of the connectives OF and IN followed by a data-name 
qualifier. 


* qualifier. 


1. A data-name or a name associated with a level 
indicator which is used in a reference either 
together with another data-name which is the 
name of an item that is subordinate to the 
qualifier or together with a condition-name. 


2. A section-name that is used in a reference 
together with a paragraph-name specified in that 
section. 


3. A library-name that is used in a reference 
together with a text-name associated with that 
library. 


R 


* random access. An access mode in which the 
program-specified value of a key data item identifies 
the logical record that is obtained from, deleted from, 
or placed into a relative or indexed file. 


*record. See “logical record.” 


* record area. A storage area allocated for the 
purpose of processing the record described in a 
record description entry in the File Section of the 
DATA DIVISION. In the File Section, the current 
number of character positions in the record area is 
determined by the explicit or implicit RECORD clause. 


* record description. See “record description entry.” 


* record description entry. The total set of data 
description entries associated with a particular 
record. The term is synonymous with record 
description. 


recording mode. The format of the logical records in 
a file. Recording mode can be F (fixed-length), V 
(variable-length), S (spanned), or U (undefined). 


record key. A key whose contents identify a record 
within an indexed file. 


*record-name. A user-defined word that names a 
record described in a record description entry in the 
DATA DIVISION of a COBOL program. 


* record number. The ordinal number of a record in 
the file whose organization is sequential. 


recursion. A program calling itself or being directly 
or indirectly called by a one of its called programs. 


recursively capable. A program is recursively 
capable (can be called recursively) if the RECURSIVE 
attribute is on the PROGRAM-ID statement. 


reel. A discrete portion of a storage medium, the 
dimensions of which are determined by each 
implementor that contains part of a file, all of a file, or 
any number of files. The term is synonymous with 
unit and volume. 


reentrant. The attribute of a program or routine that 
allows more than one user to share a single copy of a 
load module. 


* reference format. A format that provides a 
standard method for describing COBOL source 
programs. 


reference modification. A method of defining a new 
alphanumeric data item by specifying the leftmost 
character and length relative to the leftmost character 
of another alphanumeric data item. 


* reference-modifier. A syntactically correct 
combination of character-strings and separators that 
defines a unique data item. It includes a delimiting 
left parenthesis separator, the leftmost character 
position, a colon separator, optionally a length, anda 
delimiting right parenthesis separator. 


* relation. See “relational operator” or “relation 
condition.” 


* relational operator. A reserved word, a relation 
character, a group of consecutive reserved words, or 
a group of consecutive reserved words and relation 
characters used in the construction of a relation 
condition. The permissible operators and their 
meanings are: 


Operator Meaning 

IS GREATER THAN Greater than 

IS > Greater than 

IS NOT GREATER THAN Not greater than 
IS NOT > Not greater than 
IS LESS THAN Less than 

IS < Less than 

IS NOT LESS THAN Not less than 

IS NOT < Not less than 

IS EQUAL TO Equal to 

IS = Equal to 

IS NOT EQUAL TO Not equal to 

IS NOT = Not equal to 


IS GREATER THAN OR EQUAL TO 
Greater than or equal to 
IS >= Greater than or equal to 


IS LESS THAN OR EQUAL TO 
Less than or equal to 
IS<= Less than or equal to 


* relation character. A character that belongs to the 
following set: 


Character Meaning 
> greater than 
< less than 
= equal to 
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* relation condition. The proposition, for which a 
truth value can be determined, that the value of an 
arithmetic expression, data item, nonnumeric literal, 
or index-name has a specific relationship to the value 
of another arithmetic expression, data item, 
nonnumeric literal, or index name. (See also 
“relational operator.”) 


* relative file. A file with relative organization. 


* relative key. A key whose contents identify a 
logical record in a relative file. 


* relative organization. The permanent logical file 
structure in which each record is uniquely identified 
by an integer value greater than zero, which specifies 
the record’s logical ordinal position in the file. 


* relative record number. The ordinal number of a 
record in a file whose organization is relative. This 
number is treated as a numeric literal which is an 
integer. 


* reserved word. A COBOL word specified in the list 
of words that may be used in a COBOL source 
program, but that must not appear in the program as 
user-defined words or system-names. 


* resource. A facility or service, controlled by the 
operating system, that can be used by an executing 
program. 


* resultant identifier. A user-defined data item that is 
to contain the result of an arithmetic operation. 


reusable environment. A reusable environment is 
when you establish an assembler program as the 
main program by using either ILBOSTPO programs, 
IGZERRE programs, or the RTEREUS run-time option. 


routine. A set of statements in a COBOL program 
that causes the computer to perform an operation or 
series of related operations. In &cel., refers to either 
a procedure, function, or subroutine. 


* routine-name. A user-defined word that identifies a 
procedure written in a language other than COBOL. 


*run time. The time at which an object program is 
executed. The term is synonymous with object time. 


run-time environment. The environment in which a 
COBOL program executes. 


*run unit. A stand-alone object program, or several 


object programs, that interact via COBOL CALL 
statements, which function at run time as an entity. 
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S 


SBCS (Single Byte Character Set). See "Single Byte 
Character Set (SBCS)". 


scope terminator. A COBOL reserved word that 
marks the end of certain Procedure Division 
statements. It may be either explicit (END-ADD, for 
example) or implicit (separator period). 


* section. A set of zero, one or more paragraphs or 
entities, called a section body, the first of which is 
preceded by a section header. Each section consists 
of the section header and the related section body. 


* section header. A combination of words followed by 
a separator period that indicates the beginning of a 
section in the Environment, Data, and Procedure 
Divisions. In the ENVIRONMENT and DATA 
DIVISIONs, a section header is composed of reserved 
words followed by a separator period. The 
permissible section headers in the ENVIRONMENT 
DIVISION are: 


CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 


The permissible section headers in the DATA 
DIVISION are: 


FILE SECTION. 
WORKING-STORAGE SECTION. 
LOCAL-STORAGE SECTION. 
LINKAGE SECTION. 


In the Procedure Division, a section header is 
composed of a section-name, followed by the 
reserved word SECTION, followed by a separator 
period. 


* section-name. A user-defined word that names a 
section in the Procedure Division. 


selection structure. A program processing logic in 
which one or another series of statements is 
executed, depending on whether a condition is true or 
false. 


* sentence. A sequence of one or more statements, 
the last of which is terminated by a separator period. 


* separately compiled program. A program which, 
together with its contained programs, is compiled 
separately from all other programs. 


* separator. A character or two contiguous 
characters used to delimit character-strings. 


* separator comma. A comma (,) followed by a space 
used to delimit character-strings. 


* separator period. A period (.) followed by a space 
used to delimit character-strings. 


* separator semicolon. A semicolon (;) followed by a 
space used to delimit character-strings. 


sequence structure. A program processing logic in 
which a series of statements is executed in sequential 
order. 


* sequential access. An access mode in which logical 
records are obtained from or placed into a file in a 
consecutive predecessor-to-successor logical record 
sequence determined by the order of records in the 
file. 


* sequential file. A file with sequential organization. 


* sequential organization. The permanent logical file 
structure in which a record is identified by a 
predecessor-successor relationship established when 
the record is placed into the file. 


serial search. A search in which the members of a 
set are consecutively examined, beginning with the 
first member and ending with the last. 


* 77-level-description-entry. A data description entry 
that describes a noncontiguous data item with the 
level-number 77. 


* sign condition. The proposition, for which a truth 
value can be determined, that the algebraic value of a 
data item or an arithmetic expression is either less 
than, greater than, or equal to zero. 


* simple condition. Any single condition chosen from 
the set: 


Relation condition 

Class condition 
Condition-name condition 
Switch-status condition 
Sign condition 


Single Byte Character Set (SBCS). A set of 
characters in which each character is represented by 
a single byte. See also "EBCDIC (Extended 
Binary-Coded Decimal Interchange Code)." 


slack bytes. Bytes inserted between data items or 
records to ensure correct alignment of some numeric 
items. Slack bytes contain no meaningful data. In 
some cases, they are inserted by the compiler; in 
others, it is the responsibility of the programmer to 
insert them. The SYNCHRONIZED clause instructs the 
compiler to insert slack bytes when they are needed 
for proper alignment. Slack bytes between records 
are inserted by the programmer. 


SOM. System Object Model 


* sort file. A collection of records to be sorted by a 
SORT statement. The sort file is created and can be 
used by the sort function only. 


* sort-merge file description entry. An entry in the 
File Section of the DATA DIVISION that is composed 
of the level indicator SD, followed by a file-name, and 
then followed by a set of file clauses as required. 


* SOURCE-COMPUTER. The name of an 
ENVIRONMENT DIVISION paragraph in which the 
computer environment, within which the source 
program is compiled, is described. 


* source computer entry. An entry in the 
SOURCE-COMPUTER paragraph of the ENVIRONMENT 
DIVISION which contains clauses that describe the 
computer environment in which the source program is 
to be compiled. 


* source item. An identifier designated by a SOURCE 
clause that provides the value of a printable item. 


source program. Although it is recognized that a 
source program may be represented by other forms 
and symbols, in this document it always refers to a 
syntactically correct set of COBOL statements. A 
COBOL source program commences with the 
IDENTIFICATION DIVISION or a COPY statement. A 
COBOL source program is terminated by the end 
program header, if specified, or by the absence of 
additional source program lines. 


* special character. A character that belongs to the 
following set: 


Character Meaning 

+ plus sign 

minus sign (hyphen) 
asterisk 

slant (virgule, slash) 
equal sign 

currency sign 

comma (decimal point) 
; semicolon 

: period (decimal point, full stop) 
¥ quotation mark 

left parenthesis 

right parenthesis 
greater than symbol 
less than symbol 
colon 


=I 


fA i 


"NN VOY 


* special-character word. A reserved word that is an 
arithmetic operator or a relation character. 


SPECIAL-NAMES. The name of an ENVIRONMENT 
DIVISION paragraph in which environment-names are 
related to user-specified mnemonic-names. 


* special names entry. An entry in the 
SPECIAL-NAMES paragraph of the ENVIRONMENT 
DIVISION which provides means for specifying the 
currency sign; choosing the decimal point; specifying 
symbolic characters; relating implementor-names to 
user-specified mnemonic-names; relating 
alphabet-names to character sets or collating 
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sequences; and relating class-names to sets of 
characters. 


* special registers. Certain compiler generated 
storage areas whose primary use is to store 
information produced in conjunction with the use of a 
specific COBOL feature. 


* standard data format. The concept used in 
describing the characteristics of data in a COBOL 
DATA DIVISION under which the characteristics or 
properties of the data are expressed in a form 
oriented to the appearance of the data on a printed 
page of infinite length and breadth, rather than a form 
oriented to the manner in which the data is stored 
internally in the computer, or on a particular external 
medium. 


* statement. A syntactically valid combination of 
words, literals, and separators, beginning with a verb, 
written in a COBOL source program. 


structured programming. A technique for organizing 
and coding a computer program in which the program 
comprises a hierarchy of segments, each segment 
having a single entry point and a single exit point. 
Control is passed downward through the structure 
without unconditional branches to higher levels of the 
hierarchy. 


* sub-class. A class that inherits from another class. 
When two classes in an inheritance relationship are 
considered together, the sub-class is the inheritor or 
inheriting class; the super-class is the inheritee or 
inherited class. 


* subject of entry. An operand or reserved word that 
appears immediately following the level indicator or 
the level-number in a DATA DIVISION entry. 


*subprogram. See “called program.” 


* subscript. An occurrence number represented by 
either an integer, a data-name optionally followed by 
an integer with the operator + or -, or an index-name 
optionally followed by an integer with the operator + 
or -, that identifies a particular element in a table. A 
subscript may be the word ALL when the subscripted 
identifier is used as a function argument for a function 
allowing a variable number of arguments. 


* subscripted data-name. An identifier that is 
composed of a data-name followed by one or more 
subscripts enclosed in parentheses. 


* super-class. A class that is inherited by another 
class. See also sub-class. 


switch-status condition. The proposition, for which a 
truth value can be determined, that an UPSI switch, 
capable of being set to an ‘on’ or ‘off’ status, has 
been set to a specific status. 
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* symbolic-character. A user-defined word that 
specifies a user-defined figurative constant. 


syntax. (1) The relationship among characters or 
groups of characters, independent of their meanings 
or the manner of their interpretation and use. (2) The 
structure of expressions in a language. (3) The rules 
governing the structure of a language. (4) The 
relationship among symbols. (5) The rules for the 
construction of a statement. 


* system-name. A COBOL word that is used to 
communicate with the operating environment. 


System Object Model (SOM). IBM's object-oriented 
programming technology for building, packaging, and 
manipulating class libraries. SOM conforms to the 
Object Management Group's (OMG) Common Object 
Request Broker Architecture (CORBA) standards. 


T 


*table. A set of logically consecutive items of data 
that are defined in the DATA DIVISION by means of 
the OCCURS clause. 


* table element. A data item that belongs to the set 
of repeated items comprising a table. 


text deck. Synonym for object deck or object module. 


* text-name. A user-defined word that identifies 
library text. 


*text word. A character or a sequence of contiguous 
characters between margin A and margin Rina 
COBOL library, source program, or in pseudo-text 
which is: 


+ A separator, except for: space; a pseudo-text 
delimiter; and the opening and closing delimiters 
for nonnumeric literals. The right parenthesis and 
left parenthesis characters, regardless of context 
within the library, source program, or pseudo-text, 
are always considered text words. 


+ A literal including, in the case of nonnumeric 
literals, the opening quotation mark and the 
closing quotation mark that bound the literal. 


+ Any other sequence of contiguous COBOL 
characters except comment lines and the word 
‘COPY’ bounded by separators that are neither a 
separator nor a literal. 


top-down design. The design of a computer program 
using a hierarchic structure in which related functions 
are performed at each level of the structure. 


top-down development. See “structured 
programming.” 


trailer-label. (1) A file or data set label that follows 
the data records on a unit of recording medium. (2) 
Synonym for end-of-file label. 


* truth value. The representation of the result of the 
evaluation of a condition in terms of one of two 
values: true or false. 


U 


* unary operator. A plus (+) or a minus (-) sign, that 
precedes a variable or a left parenthesis in an 
arithmetic expression and that has the effect of 
multiplying the expression by +1 or -1, respectively. 


unit. A module of direct access, the dimensions of 
which are determined by IBM. 


universal object reference. A data-name that can 
refer to an object of any class. 


* unsuccessful execution. The attempted execution of 
a statement that does not result in the execution of all 
the operations specified by that statement. The 
unsuccessful execution of a statement does not affect 
any data referenced by that statement, but may affect 
status indicators. 


UPSI switch. A program switch that performs the 
functions of a hardware switch. Eight are provided: 
UPSI-0 through UPSI-7. 


* user-defined word. A COBOL word that must be 
supplied by the user to satisfy the format of a clause 
or statement. 


V 


* variable. A data item whose value may be changed 
by execution of the object program. A variable used 
in an arithmetic expression must be a numeric 
elementary item. 


* variable length record. A record associated with a 
file whose file description or sort-merge description 
entry permits records to contain a varying number of 
character positions. 


* variable occurrence data item. A variable 
occurrence data item is a table element which is 
repeated a variable number of times. Such an item 
must contain an OCCURS DEPENDING ON clause in its 
data description entry, or be subordinate to such an 
item. 


* variably located group.. A group item following, and 
not subordinate to, a variable-length table in the 
same level-01 record. 


* variably located item.. A data item following, and 
not subordinate to, a variable-length table in the 
same level-01 record. 


*verb. A word that expresses an action to be taken 
by a COBOL compiler or object program. 


VM/SP (Virtual Machine/System Product). An 
IBM-licensed program that manages the resources of 
a single computer so that multiple computing systems 
appear to exist. Each virtual machine is the 
functional equivalent of a “real” machine. 


volume. A module of external storage. For tape 
devices it is a reel; for direct-access devices it is a 
unit. 


volume switch procedures. System specific 
procedures executed automatically when the end of a 
unit or reel has been reached before end-of-file has 
been reached. 


W 


*word. A character-string of not more than 30 
characters which forms a user-defined word, a 
system-name, a reserved word, or a function-name. 


* WORKING-STORAGE SECTION. The section of the 
DATA DIVISION that describes working storage data 


items, composed either of noncontiguous items or 
working storage records or of both. 


Z 


zoned decimal item. See “external decimal item.” 
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List of Abbreviations 


AD 
API 
CORBA 


CRC 


DDE 
DDL 
DFD 
DLL 
DSOM 


ER 
FAT 


application development 
application program interface 


Common Object Request 
Broker 


class responsibilities 
collaborations 


dynamic data exchange 
data description language 
data flow diagram 
dynamic link library 


distributed system object 
model 


entity relationship 
file allocation table 


© Copyright IBM Corp. 1996 


GUI 
IBM 


IT 
ITSO 


LE 
Mvc 
OMG 
oTc 
PAM 
PDS 
SOM 


graphical user interface 


International Business 
Machines Corporation 


information technology 


International Technical 
Support Organization 


language environment 
model view controller 
Object Management Group 
Object Technology Council 
project access method 
partitioned data set 
system object model 
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A 


adding parts 14 


B 


building application 8, 27, 47, 66 


C 


compiler options 45 
create new project 3 


Data Assistant 51, 69, 83 
data structure mapping 52, 54, 69 
database schema view 51, 69 


editor 6, 64 
event driven programming 19, 74 
file control 65 


GUI code assistant 23, 75 
GUI editor 25, 74 
GUI project 11, 71 


moving parts 16 


N 


nesting projects 44 


Pp 


parts catalog 13 
parts palette 11, 72 
project 3, 63 


R 


running application 9, 28, 48, 66 


S 


saving GUI project 17 
sizing parts 16 
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SQL construction 
SQL statements 
subroutine 31 
subroutine project 
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